Здравствуйте TGo_los, Вы писали:
TL>Надо написанные письма сохранять в Черновиках(Outlook), а затем все одновременно отправлять.
Типа такого (в терминах VB):
Сохранение
Dim ol_App As Outlook.Application
Dim ol_Mail As Outlook.MailItem
Set ol_App = CreateObject("Outlook.Application")
Set ol_Mail = ol_App.CreateItem(olMailItem)
ol_Mail.Subject = "Save mail example"
Call ol_Mail.Recipients.Add("test")
Call ol_Mail.Save 'Сохранение в папке черновики (Drafts) — если Outlook не настроен по другому
Отправка
Dim ol_App As Outlook.Application
Dim ol_Drafts As Outlook.MAPIFolder
Dim ol_Mail As Outlook.MailItem
Set ol_App = CreateObject("Outlook.Application")
Set ol_Drafts = ol_App.GetNamespace("MAPI").Folders.Item(olFolderDrafts)
For Each ol_Mail In ol_Drafts.Items
Call ol_Mail.Send 'Отправка
Next
