SaveSentMessageFolder Property

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.To = "Dan Wilson"
    Set myResponse.SaveSentMessageFolder = mpf
End Sub

Applies to | MailItem Object | MeetingItem Object

See Also | Save Method | SaveAs Method | Send Method | Sent Property