Можно ли с программы отправить Email? - VB
Формулировка задачи:
можно ли с программы отправить Email?
т.е. пользователь набирает сообщение в Text и отправляет его на одно определенное мыло.
Решение задачи: «Можно ли с программы отправить Email?»
textual
Листинг программы
':::
'::: Отправка почты компонентом jmail.dll
':::
Set jmail = CreateObject("JMail.Message")
jmail.charset="windows-1251" ' кодировка
jmail.AddRecipient "aaa@bbb.ru" ' адрес получателя
jmail.From = "fff@ggg.com" ' адрес отправителя
jmail.Body = "Текст письма..." ' перевод на новую строку - & vbCrLf
jmail.Subject="OPER" ' тема письма
jmail.EnableCharsetTranslation=False ' так надо...
jmail.AddAttachment( HomeDir & "\dan.xls" ) ' прикрепленный файл
jmail.Send( "имя_или_IP_почтового_сервера" ) ' лети!...
Set jmail=Nothing