Saving sent email to a Personal Folder

[Guest]

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?

 

[Ken Slovak - [MVP - Outlook]]

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

 

[Guest]

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)

 

[Guest]

Got it

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