|
|
|
новичок
участник
Last Login: 15.08.2000 4:33
Сообщ.: 4,
Visits: 45
|
|
| Как послать письмо из VB используя BAT! ?
|
|
|
|
|
новичок
участник
Last Login: 22.05.2007 14:51
Сообщ.: 2,
Visits: 33
|
|
Подниму тему
Нашел вот такой пример ,но че то у меня не получается запустить его мож кто нибудь осилит:).
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
|
|
|
|