Was this page helpful?
Your feedback about this content is important. Let us know what you think.
Additional feedback?
1500 characters remaining
Export (0) Print
Expand All
Expand Minimize

MailItem.SaveSentMessageFolder Property (Outlook)

Returns or sets a Folder object that represents the folder in which a copy of the e-mail message will be saved after being sent. Read/write.

expression .SaveSentMessageFolder

expression A variable that represents a MailItem object.

This Visual Basic for Applications (VBA) example sends a reply to Dan Wilson and sets the SaveMyPersonalItems folder as the folder in which a copy of the item will be saved after being sent. To run this example without errors, make sure a mail item is open in the active inspector window and replace 'Dan Wilson' with a valid recipient name.

Sub SetSentFolder() 
 Dim myItem As Outlook.MailITem 
 Dim myResponse As Outlook.MailITem 
 Dim mpfInbox As Outlook.Folder 
 Dim mpf As Outlook.Folder 
 Set mpfInbox = Application.Session.GetDefaultFolder(olFolderInbox) 
 Set mpf = mpfInbox.Folders.Add("SaveMyPersonalItems") 
 Set myItem = Application.ActiveInspector.CurrentItem 
 Set myResponse = myItem.Reply 
 myResponse.To = "Dan Wilson" 
 Set myResponse.SaveSentMessageFolder = mpf 
End Sub
© 2015 Microsoft