ник: shaucha
Использую Outlook Express (он нас у всех по умолчанию).
Код примерно такой (по подобию, того, что нашел на нашем сайте):
Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem
Set olApp = New Outlook.Application
Set objMail = olApp.CreateItem(olMailItem)
objMail.BodyFormat = 2
objMail.Subject = fSubject
objMail.To = fTo
objMail.Attachments.Add aFileName
objMail.HTMLBody = fBody
objMail.Display
Set objMail = Nothing
Set olApp = Nothing
|
Не знаю, как вообще отправителя задать, вот в чем дело )