

Set objNS = Application.GetNamespace("MAPI") Private Sub Application_ItemSend(ByVal Item As Object) This sample saves the sent message to a subfolder named "Diane" under the Sent Items folder. You could use an If statement to only move certain messages to the folder. If you always want to use a different folder, you can use a macro to set the Save message to folder. In Outlook 2007 and newer, you can select a different Sent Items folder using the Save Sent Item to Command on the Options ribbon. You can select a different sent items folder for each message by selecting the folder from the Options dialog before sending the message. Select the folder when sending the message

Save Replies with the Original | Using Rules to file Sent items

Select the folder when sending the message | Use VBA to display a dialog
