Saving sent email to a Personal Folder

  • Thread starter Thread starter Guest
  • Start date Start date
G

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?
 
Not directly, no. You can find the item in Sent Items and move it where you
want though.
 
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)
 
Got it

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