MS Office 10

Отправляю из Access письмо средствами Outlook

Public Sub SendMail()
Dim OL_App As Outlook.Application
Dim OL_ItemMail As Outlook.MailItem
Dim OL_NameSpace As Object

Set OL_App = CreateObject("Outlook.Application")

Set OL_NameSpace = OL_App.GetNamespace("MAPI")

Set OL_ItemMail = OL_App.CreateItem(olMailItem)
With OL_ItemMail
      .To = "aaa@mail.ru"
   .Subject = "Тема письма"
   .Body = "... Текст письма"
   .Send
End With

End Sub

Письмо нормально отправляется, но в Outlook нигде не сохраняется.

Надо, чтобы письмо сохранялось в отправленных

http://www.sql.ru/forum/1271239/sohranenie-otpravlennogo-pisma-v-outlook