Topic: Saving of the sent letter in Outlook
MS Office 10
I send from Access the letter means 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 = "email@example.com" .Subject = "a letter Subject" .Body = "... The letter Text" .Send End With End Sub
The letter normally goes, but in Outlook is not saved anywhere.
It is necessary, that the letter was saved in the sent