Returns a MAPIFolder object that represents the folder in which a copy of the e-mail message will be saved after being sent.
*expression * Required. An expression that returns one of the objects in the Applies To list.
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.MAPIFolder Dim mpf As Outlook.MAPIFolder Set mpfInbox = Application.Session.GetDefaultFolder(olFolderInbox) Set mpf = mpfInbox.Folders.Add("SaveMyPersonalItems") Set myItem = Application.ActiveInspector.CurrentItem Set myResponse = myItem.Reply myResponse.Display myResponse.To = "Dan Wilson" Set myResponse.SaveSentMessageFolder = mpf myResponse.Send End Sub