ник: osmor
переместить не проблема
Получаем папку Draft и от туда все item.Move в папку olFolderOutbox
Dim OL_App As Outlook.Application
Dim OL_NameSpace As Outlook.NameSpace
Dim OL_FolderMail As Outlook.MAPIFolder
Dim OL_ItemMail As Outlook.MailItem
Dim OL_Attachment As Outlook.Attachment
' получаем объект Outlook
Set OL_App = CreateObject("Outlook.Application")
'получаем Namespace
Set OL_NameSpace = OL_App.GetNamespace("MAPI")
' получаем ссылку на папку черновики
Set OL_FolderMail = OL_NameSpace.GetDefaultFolder(olFolderDrafts)
' перебираем все письма в папке и перемещаем в папку исходящие
For Each OL_ItemMail In OL_FolderMail.Items
OL_ItemMail.Move OL_NameSpace.GetDefaultFolder(olFolderOutbox)
next
|
Только это ничего не даст.
Есть есть еще свойство Submitted вот его программно в true мне поставить не удалось. а без этого письмо не уходит, у меня не получилось.
Попробуй при создании письма установить это свойство, но не уверен, оно вообще read-olny
http://msdn.microsoft.com/en-us/library/ff865326.aspx