ник: Joss
Попробовал. Письма сохраняются в папке "Черновики"
Dim OL_App As Outlook.Application
Dim OL_ItemMail As Outlook.MailItem
Dim OL_NameSpace As Outlook.NameSpace
Dim RecipientTask As Recipient
Dim OL_Pattern As Outlook.RecurrencePattern
Dim OL_FolderMail As Outlook.MAPIFolder
Set OL_App = CreateObject("Outlook.Application") ' получаем объект Outlook
Set OL_NameSpace = OL_App.GetNamespace("MAPI") 'получаем Namespace
Set OL_App.ActiveExplorer.CurrentFolder = OL_NameSpace.GetDefaultFolder(olFolderOutbox)
|