@VGooz

Лучше использовать MSMAPI, Outlook.Application требует наличие MS Outlook из офиса на клиенте, а MSMAPI умеет взаимодействовать с MS Outlook Express и с MS Outlook из MS Office. Далее пример кода:

Dim MessageCtrl ' элемент управления MAPIMessages Control
Dim SessionCtrl ' элемент управления MAPISession Control
Set SessionCtrl = CreateObject('MSMAPI.MAPISession')
If Err.Number <> 0 Then ' если невозможно инициализировать элемент управления - закрыть диалог
MsgBox 'Error # ' & CStr(Err.Number) & vbLf & err.Description
Err.Clear ' Очистить ошибку
Unload vbCancel ' закрыть диалог
End If
Set MessageCtrl = CreateObject('MSMAPI.MAPIMessages')
SessionCtrl.DownloadMail = False ' не получать почту при подключении
SessionCtrl.SignOn ' установить сессию
MessageCtrl.SessionID = SessionCtrl.SessionID ' установить соответствие между элементами управления
MessageCtrl.Compose ' подготовка к созданию нового сообщения
MessageCtrl.RecipAddress = 'user@domain.com'
MessageCtrl.MsgSubject = 'Subject'
MessageCtrl.MsgNoteText = 'Message body'
'Дальше собственно атачи можно лепить, читай MSDN
MessageCtrl.Send False ' отправить

Собственно и все!

Вернуться к обсуждению:
Автообработка вложений в Outlook|OutlookExpress VB

0