1

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 = "aaa@mail.ru"
.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

2

Re: Saving of the sent letter in Outlook

vma_mnt, to fulfill method Save, and then Move from a folder by default in the necessary folder. Like so...

3

Re: Saving of the sent letter in Outlook

Operation with electronic mail from programs Access means MS Outlook (and not only it)
Look at the code. Should help.

4

Re: Saving of the sent letter in Outlook

Thanks, understood