Saving sent email to a Personal Folder

A

ABM

I am sending email from Access and would like to save the emails in a
Personal Folder and not the Sent Items folder. Is this possible?
 
K

Ken Slovak - [MVP - Outlook]

Not directly, no. You can find the item in Sent Items and move it where you
want though.
 
A

ABM

I am able to reference the sent mail with this but can't figure out how to
reference a personal folder in order to move. Thanks

Dim oNameSpace As Outlook.Namespace
Dim oFolderSentItems As Outlook.MAPIFolder
Dim oDestinationFolder As Outlook.MAPIFolder
Dim oMailItem As Outlook.MailItem
Set oNameSpace = oOutlook.GetNamespace("MAPI")
Set oFolderSentItems = oNameSpace.GetDefaultFolder(olFolderSentMail)
Set oDestinationFolder = ???????????
Set oMailItem = oFolderSentItems.Items.GetFirst
oMailItem.Move(oDestinationFolder)
 
A

ABM

Got it

Set oFolderDestination = oNamespace.Folders.Item("Personal
Folders").Folders.Item("myFolder")
 
Top