These two macros use the ItemSend method in the macro above, but call the folder picker so you can choose a folder each time. Set Item.SaveSentMessageFolder = objFolder Set objFolder = objNS.GetDefaultFolder(olFolderSentMail).Folders("Diane") 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
0 Comments
Leave a Reply. |