Нужна кнопка "Отправить - Адресат"

[ZZZAlexZZZ]

Flasher
Про отдельный скрипт в курсе, пользовался этим скриптом, всё работало За скрипт отдельное спасибо Batya - http://wincmd.ru/forum/viewpost.php?p=63992
При большом числе файлов хотелось бы побыстрее скорость создания письма утилитой, по сравнению со скриптом.
По поводу создания кнопки - кнопка без %P образовалась копипастом вставкой c правкой пути к утилите.

Как насчёт улитки?

Всё должно проходить через корпоративный сервер согласно регламента Утилита не подойдет:(

[Flasher]

ZZZAlexZZZ
Там в теме на последней странице скрипты с массовым прикреплением.

Утилита не подойдет

Ещё раз внимательно по слогам: у-лит-ка. Я же пояснил далее.

[ZZZAlexZZZ]

Ааа Сабака работает))) -to @
Понедельник сказывается)

[Flasher]

Ну, слава Богу.
В общем, всем пожалуйста.

[heksus21]

Flasher
Подскажите пожалуйста, как сделать так, что бы в тему сообщения вставлялось имя прикрепляемого файла?

[Flasher]

heksus21
В поле Параметры: -subject %N прописать.

[heksus21]

Flasher
Вот спасибо! теперь работает как хотелось.

[heksus21]

Flasher
Выделяю два файла, жму кнопку, в теме сообщения прописывается только имя файла, которое было под курсором.
Можно сделать, чтобы в теме были имена всех отправляемых файлов?

Привык к такому отображению темы сообщения. Делал раньше так: выделил несколько файлов-->ПКМ-->Отправить-->Адресат. Прописывались все отправляемые файлы.

[Flasher]

heksus21
%S вместо %N.

[heksus21]

Flasher
%S не работает. (вставляет имя первого файла)

[Flasher]

heksus21
А в кавычках?

[heksus21]

Flasher
Копирует до первого пробела в имени файла.
Работает, если имена файлов состоят без пробелов.
В Справке написано: %S...Имена, содержащие пробелы, будут взяты в кавычки но почему-то не действует.
Может, что-то не так в параметрах у меня?:
-files %P%S -subject "%S" -to

[Flasher]

heksus21
В справке написано в отношении каждого имени в отдельности. А поскольку они отделены пробелами, то и берётся первый параметр. Поэтому я предложил взять в кавычки все возвращаемые имена. Лучше перенести указанные мной параметры в конец после -to <адрес>. Если это не поможет, то для создания верно возвращаемого списка уже понадобится скрипт с желаемым разделителем между именами.

[heksus21]

Лучше перенести указанные мной параметры в конец после -to <адрес>

Без изменений.
Ладно, и так пойдет, привыкну.
Все равно спасибо!

[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