Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Нужна кнопка "Отправить - Адресат"
Goto page Previous  1, 2, 3, 4  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
ZZZAlexZZZ



Joined: 08 Mar 2014
Posts: 68

Post (Separately) Posted: Mon Apr 27, 2015 19:07    Post subject: Reply with quote

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

Всё должно проходить через корпоративный сервер согласно регламента Very Happy Утилита не подойдетSad
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Mon Apr 27, 2015 19:13    Post subject: Reply with quote

ZZZAlexZZZ
Там в теме на последней странице скрипты с массовым прикреплением.
ZZZAlexZZZ wrote:
Утилита не подойдет
Ещё раз внимательно по слогам: у-лит-ка. Я же пояснил далее.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
ZZZAlexZZZ



Joined: 08 Mar 2014
Posts: 68

Post (Separately) Posted: Mon Apr 27, 2015 19:16    Post subject: Reply with quote

Ааа Very Happy Сабака работает))) -to @
Понедельник сказывается)
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Mon Apr 27, 2015 19:45    Post subject: Reply with quote

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

_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
heksus21



Joined: 17 Jul 2015
Posts: 14

Post (Separately) Posted: Fri Jul 17, 2015 16:20    Post subject: Reply with quote

Flasher
Подскажите пожалуйста, как сделать так, что бы в тему сообщения вставлялось имя прикрепляемого файла?
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Fri Jul 17, 2015 19:28    Post subject: Reply with quote

heksus21
В поле Параметры: -subject %N прописать.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
heksus21



Joined: 17 Jul 2015
Posts: 14

Post (Separately) Posted: Mon Jul 20, 2015 09:54    Post subject: Reply with quote

Flasher
Вот спасибо! теперь работает как хотелось.
Back to top
View user's profile Send private message
heksus21



Joined: 17 Jul 2015
Posts: 14

Post (Separately) Posted: Tue Jul 21, 2015 15:21    Post subject: Reply with quote

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

Привык к такому отображению темы сообщения. Делал раньше так: выделил несколько файлов-->ПКМ-->Отправить-->Адресат. Прописывались все отправляемые файлы.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Tue Jul 21, 2015 20:09    Post subject: Reply with quote

heksus21
%S вместо %N.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
heksus21



Joined: 17 Jul 2015
Posts: 14

Post (Separately) Posted: Wed Jul 22, 2015 09:52    Post subject: Reply with quote

Flasher
%S не работает. (вставляет имя первого файла)
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Wed Jul 22, 2015 15:44    Post subject: Reply with quote

heksus21
А в кавычках?
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
heksus21



Joined: 17 Jul 2015
Posts: 14

Post (Separately) Posted: Wed Jul 22, 2015 16:28    Post subject: Reply with quote

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



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Thu Jul 23, 2015 12:41    Post subject: Reply with quote

heksus21
В справке написано в отношении каждого имени в отдельности. А поскольку они отделены пробелами, то и берётся первый параметр. Поэтому я предложил взять в кавычки все возвращаемые имена. Лучше перенести указанные мной параметры в конец после -to <адрес>. Если это не поможет, то для создания верно возвращаемого списка уже понадобится скрипт с желаемым разделителем между именами.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
heksus21



Joined: 17 Jul 2015
Posts: 14

Post (Separately) Posted: Thu Jul 23, 2015 17:34    Post subject: Reply with quote

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

Без изменений.
Ладно, и так пойдет, привыкну.
Все равно спасибо! Very Happy
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Mon Jul 27, 2015 22:37    Post subject: Reply with quote

heksus21
Мне-то написать несложно, можно было и попросить. Wink
Code:
'==============================================================================
' Отправить выбранные файлы на Адресат с подстановкой имён файлов в тему письма

' Параметры: %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

_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.


Last edited by Flasher on Wed Jul 29, 2015 11:42; edited 2 times in total
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Goto page Previous  1, 2, 3, 4  Next
Page 3 of 4

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group