Только сегодня скачал с пару статей на эту тему. Вот самый простой способ,
создающий письмо для почтовой программы, стоящей по умолчанию (оригинальная
статья
http://www.sources.ru/delphi/delphi_send_mail_with_attachment.shtml):
EMailDestinationString="gbamber@bamber.com"
SubjectString="Message Subject"
Line1String="This is the first line"
Line2String="This is the second line"
'Можно использовать несколько адресов, разделяя их точкой с запятой
mailstring="mailto:" + EMailDestinationString + _
"?subject=" + SubjectString + _
"&body="+ Line1String + _
"%0d" + Line2String
if (ShellExecute(0,"open",mailstring,'','',SW_SHOWNORMAL)<=32) then _
MsgBox "Auto method failed."
Если этого недостаточно, можно использовать Автоматизацию:
Set Outlook=CreateObject("Outlook.Application")
Подробный пример работы с этим объектом на
http://www.sources.ru/delphi/delphi_send_mail_with_attachment.shtml
Хотя пример на Delphi, но в VB то же самое.
Ответить
|