Вопрос по OutLook -2007,
Sub q()
Dim OL_App As Outlook.Application
Dim OL_ItemMail As Outlook.MailItem
Dim RecipientTask As Recipient
Dim OL_Pattern As Outlook.RecurrencePattern
Set OL_App = CreateObject("Outlook.Application")
Set OL_ItemMail = OL_App.CreateItem(olMailItem)
With OL_ItemMail
.To = "1@Mail.ru"
.CC =
.BodyFormat = olFormatHTML 'ôîðìàò ïèñüìà
MsgBox olFormatHTML
.Save
.Send
End With
End Sub

Таким образом я могу отправить письмо. Адресат, получив письмо увидет, что ящик отправителя, тот с которого был запущен скрипт. Можно ли поменять ящик отправителя, ну или хотя бы какую нибудь подпись добавить в виде имени ...