Flasher
|
 Posted: Mon Jul 27, 2015 22:37 Post subject: |
 |
|
heksus21
Мне-то написать несложно, можно было и попросить. 
| 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 |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
