Got it

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

"ABM" wrote:

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)


"Ken Slovak - [MVP - Outlook]" wrote:

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

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"ABM" wrote in message
...
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?