This documentation is archived and is not being maintained.

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