Flasher
|
 Posted: Sat Feb 01, 2014 23:03 Post subject: |
 |
|
| Cobblestone-TLT wrote: | | Еще раз коротко |
Не надо "коротко"...
| Code: | '=================================================
' Открыть окно "Редактирование письма" в The Bat
' с прикреплёнными выбранными в панели TC файлами
' Параметры: %WL "<имя пользователя The Bat>" "%O"
'================= Путь к The Bat ================
Bat = """C:\Program Files\The Bat\thebat.exe"""
'=================================================
With WScript.Arguments
If .Count = 0 Then WScript.Quit
List = .Item(0) : User = .Item(1) : TName = .Item(2)
End With : Set FSO = CreateObject("Scripting.FileSystemObject")
For Each F in Split(FSO.GetFile(List).OpenAsTextStream(1,-1).ReadAll, vbNewLine)
If F <> "" Then Sp = Sp & ";A=""" & F & """"
Next : CreateObject("WScript.Shell").Exec Bat & " /MAILU=""" & User & """" & Sp & ";S=""" & TName & """;EDIT" |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Tue Feb 04, 2014 21:09; edited 2 times in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
