Страница 3 из 4
Добавлено: Пн апр 27, 2015 18:07
ZZZAlexZZZ
Flasher
Про отдельный скрипт в курсе, пользовался этим скриптом, всё работало
За скрипт отдельное спасибо Batya -
http://wincmd.ru/forum/viewpost.php?p=63992
При большом числе файлов хотелось бы побыстрее скорость создания письма утилитой, по сравнению со скриптом.
По поводу создания кнопки - кнопка без %P образовалась копипастом вставкой c правкой пути к утилите.
Как насчёт улитки?
Всё должно проходить через корпоративный сервер согласно регламента
Утилита не подойдет:(
Добавлено: Пн апр 27, 2015 18:13
Flasher
ZZZAlexZZZ
Там в теме на последней странице скрипты с массовым прикреплением.
ZZZAlexZZZ писал(а):Утилита не подойдет
Ещё раз внимательно по слогам: у-лит-ка. Я же пояснил далее.
Добавлено: Пн апр 27, 2015 18:16
ZZZAlexZZZ
Ааа
Сабака работает))) -to @
Понедельник сказывается)
Добавлено: Пн апр 27, 2015 18:45
Flasher
Ну, слава Богу.
В общем, всем пожалуйста.
Добавлено: Пт июл 17, 2015 15:20
heksus21
Flasher
Подскажите пожалуйста, как сделать так, что бы в тему сообщения вставлялось имя прикрепляемого файла?
Добавлено: Пт июл 17, 2015 18:28
Flasher
heksus21
В поле Параметры: -subject %N прописать.
Добавлено: Пн июл 20, 2015 08:54
heksus21
Flasher
Вот спасибо! теперь работает как хотелось.
Добавлено: Вт июл 21, 2015 14:21
heksus21
Flasher
Выделяю два файла, жму кнопку, в теме сообщения прописывается только имя файла, которое было под курсором.
Можно сделать, чтобы в теме были имена всех отправляемых файлов?
Привык к такому отображению темы сообщения. Делал раньше так: выделил несколько файлов-->ПКМ-->Отправить-->Адресат. Прописывались все отправляемые файлы.
Добавлено: Вт июл 21, 2015 19:09
Flasher
heksus21
%S вместо %N.
Добавлено: Ср июл 22, 2015 08:52
heksus21
Flasher
%S не работает. (вставляет имя первого файла)
Добавлено: Ср июл 22, 2015 14:44
Flasher
heksus21
А в кавычках?
Добавлено: Ср июл 22, 2015 15:28
heksus21
Flasher
Копирует до первого пробела в имени файла.
Работает, если имена файлов состоят без пробелов.
В Справке написано: %S...Имена, содержащие пробелы, будут взяты в кавычки но почему-то не действует.
Может, что-то не так в параметрах у меня?:
-files %P%S -subject "%S" -to
Добавлено: Чт июл 23, 2015 11:41
Flasher
heksus21
В справке написано в отношении каждого имени в отдельности. А поскольку они отделены пробелами, то и берётся первый параметр. Поэтому я предложил взять в кавычки все возвращаемые имена. Лучше перенести указанные мной параметры в конец после -to <адрес>. Если это не поможет, то для создания верно возвращаемого списка уже понадобится скрипт с желаемым разделителем между именами.
Добавлено: Чт июл 23, 2015 16:34
heksus21
Flasher писал(а): Лучше перенести указанные мной параметры в конец после -to <адрес>
Без изменений.
Ладно, и так пойдет, привыкну.
Все равно спасибо!
Добавлено: Пн июл 27, 2015 21:37
Flasher
heksus21
Мне-то написать несложно, можно было и попросить.
Код: Выделить всё
'==============================================================================
' Отправить выбранные файлы на Адресат с подстановкой имён файлов в тему письма
' Параметры: %WL <разделитель имён файлов> <E-Mail> (последний - необяз.)
' Примеры: %WL "; " | %WL # any@gmail.com
'=========================== Путь к утилите SendTo ============================
SendTo = """%COMMANDER_PATH%\Utils\SendTo.exe"""
'==============================================================================
With WSCript.Arguments
T = Space(17) & "Режим отладки": C = .Count: If C = 0 Then WScript.Quit
If C < 2 Then MsgBox "Укажите 2 или 3 параметра!", 48, T : WScript.Quit
List = .Item(0) : Sep = .Item(1) : If C = 3 Then Mail = " " & .Item(2)
End With
All = CreateObject("Scripting.FileSystemObject").OpenTextFile(List,,,-1).ReadAll
With New RegExp
.IgnoreCase = True : .Global = True : .Pattern = ".*\\\s\n"
List = .Replace(Left(All, Len(All) - 2), "") : If List = "" Then WScript.Quit
.Pattern = "(.* +[^\r\n]*)" : SList = .Replace(List, """$1""")
.Multiline = True : .Pattern = ".*\\"
CreateObject("WScript.Shell").Run SendTo & " -files " & Join(Split(SList, vbNewLine)) _
& " -subject """ & Join(Split(.Replace(List, ""), vbNewLine), Sep) & """ -to" & Mail, 0
End With