| |
Создадим письмо с вложением и поместим его в TheBat! |
|
| |
Ставим Dir1, Text5(0).Text, Text5(1).Text, Text3.Text
Prog = "C:\Program Files\The Bat!\thebat.exe" '' в роде бы у ламера
'' всегда TheBat лежит там
If Dir$(Prog$, vbNormal) = "" Then '' если нет (не ламер)
On Error Goto PRNT
Dir1.Path = "C:\Program Files\" '' стандартная прогр. папа
For e = 0 To Dir1.ListCount - 1 '' шерстим все папки в Pr.Files
'' если файл найден
If Dir(Dir1.List(e) & "\thebat.exe", vbNormal) <> "" Then
'' фильтр на признак слеша (есть/нет) приготавливаем полный путь для
'' запуска батона
If Right$(Dir1.List(e), 1) = "\" Then Prog = Dir1.List(e) + "thebat.exe" Else Prog = Dir1.List(e) + "\thebat.exe"
'' идем на вызов бата
GoTo GoLetter
Else
'' смотрим и видим, что все папки прошерстили, файл бат не найден,
'' ну и всё, на что способен этот код... гуляй вася...
If e = Dir1.ListCount - 1 Then
If MsgBox("Программа TheBat! не найдена. Если все-таки почта установлена создать ли пустой бланк письма?", vbCritical + vbYesNo) = vbYes Then ShellProgramm ("mailto:" & Text5(0).Text & "?Subject=" & Text5(1).Text)
Exit Sub
End If
End If
Next e
Else
GoLetter:
'' ну теперь самое сладкое и непостижимое для многих!
'' Chr$(34) - это ковычки, они необходимы при использовании пробелов в
'' команде.
'' Prog - команда бата "c:\Program Files\The Batonchik\Thebat.exe" например.
'' ну и далее всякие ключи...
'' Text5(0).Text - адрес получателя
'' Text5(1).Text - тема письма
'' Text3.Text - полный путь к файлу, который приклеиваем (можно с пробелами)
maill = Chr$(34) & Prog & Chr$(34) & " /mailto=" & Chr$(34) & Text5(0).Text & Chr$(34) & ";Subject=" & Chr$(34) & Text5(1).Text & Chr$(34) & ";A=" & Chr$(34) & Text3.Text & Chr$(34)
'' переменная готова, теперь вызываем!
Call Shell(maill)
'' готовое письмо можно найти в том ящике (если их больше одного),
'' который имеет приемущество (создавался первым). Как засунуть в
'' другой, не зная его имя пока не знаю, в след версиях, ха,ха.
End If
Exit Sub
'' тут я думаю, понятно!
PRNT:
Msgbox "Error: " & Err.Description
End Sub
|
|
| |
|
|
|
|