Save Outlook Message As Pdf 2010

In this article, you will find the steps on how to remove an email account in Microsoft Outlook 2016, 2013 or 2010. Discover more Outlook training at LinkedIn Learning. Save, open, or preview attachments. Most of the time, youll see attached files in the Reading Pane, directly. Save Outlook Message As Pdf 2010 Download' title='Save Outlook Message As Pdf 2010 Download' />Save Outlook Message As Pdf 2010 LicenseSave Selected Email Message as. File. This code sample will save one or more selected messages to your My Documents folder as individual. The file name includes the received date and time. Spaces and invalid characters are replaced with underscores. A variation of this macro that saves as a text file is at Save email message as text file. Included is a version that saves selected messages as one text file. For more information on saving to other formats, see How to Save Email in Windows File System. See How to use the VBA Editor if you dont know how to use macros or the VBA Editor. Updated December 1. I also added character replacements for single quote and asterisk. Option Explicit. Public Sub Save. Message. As. Msg. Dim o. Mail As Outlook. Mail. Item. Dim obj. Item As Object. Dim s. Path As String. Dim dt. Date As Date. Dim s. Name As String. Dim enviro As String. CStrEnvironUSERPROFILE. For Each obj. Item In Active. Explorer. Selection. If obj. Item. Message. Class IPM. Note Then. Set o. Mail obj. Item. Name o. Mail. Subject. Replace. Chars. For. File. Name s. Name,. Date o. Mail. Received. Time. s. Name Formatdt. Date, yyyymmdd, vb. Use. System. Day. Of. Week,. vb. Use. System Formatdt. Date, hhnnss,. Use. System. Day. Of. Week, vb. Use. System s. Name. Path enviro Documents. Debug. Print s. Path s. Name. o. Mail. Save. As s. Path s. Name, ol. MSG. Private Sub Replace. Chars. For. File. Names. Name As String,. Chr As String. s. Name Replaces. Name,, s. Chr. Name Replaces. Name,, s. Chr. Name Replaces. Name,, s. Chr. Name Replaces. Name,, s. Chr. Name Replaces. Name,, s. Chr. Name Replaces. Name,, s. Chr. Name Replaces. Name, Chr3. 4, s. Chr. s. Name Replaces. Name, lt, s. Chr. Name Replaces. Name,, s. Chr. s. Name Replaces. Name,, s. Chr. End Sub. Pick the Folder Location. To select the folder where you want to save the selected messages, you can use the Browse. For. Folder function. Youll need to select the folder before you begin saving the messages. If you select it after the For Each loop, youll need to select a folder for each message. Dont forget to get the Browse. For. Folder function. Option Explicit. Public Sub Save. Message. As. Msg. Dim o. Mail As Outlook. Mail. Item. Dim obj. Item As Object. Dim s. Path As String. Dim dt. Date As Date. Dim s. Name As String. Dim enviro As String. Dim str. Folderpath As String. CStrEnvironUSERPROFILE. Defaults to Documents folder. Folderpath Browse. For. Folderenviro documents. For Each obj. Item In Active. Explorer. Selection. If obj. Item. Message. Class IPM. Note Then. Set o. Mail obj. Item. Name o. Mail. Subject. Replace. Chars. For. File. Name s. Name,. Date o. Mail. Received. Time. s. Name Formatdt. Date, yyyymmdd, vb. Use. System. Day. Of. Week,. vb. Use. System Formatdt. Date, hhnnss,. Use. System. Day. Of. Week, vb. Use. System s. Name. Path str. Folderpath. Debug. Print s. Path s. Name. o. Mail. Save. As s. Path s. Name, ol. MSG. End Sub. Save messages as they are sent. This version of the macro will save messages to the users My Documents folder as they are added to the Sent Items folder, using Now to create the time and date stamp. If the subject contains illegal filename characters, youll need the Replace. Chars. For. File. Name sub above. Private With. Events obj. Sent. Items As Items. Private Sub ApplicationStartup. Dim obj. Sent As Outlook. MAPIFolder. Set obj. NS Application. Get. Stars Of Destiny Full'>3 Stars Of Destiny Full. NamespaceMAPI. Set obj. Sent. Items obj. NS. Get. Default. Folderol. Folder. Sent. Mail. Items. Set obj. NS Nothing. Prince Guitar Mp3 S here. Get Low Dj Snake'>Get Low Dj Snake. Private Sub obj. Sent. ItemsItem. AddBy. Val Item As Object. Dim s. Path As String. Dim dt. Date As Date. Dim s. Name As String. Dim enviro As String. CStrEnvironUSERPROFILE. Name Item. Subject. Replace. Chars. For. File. Name s. Name,. Date Item. Received. Time. s. Name Formatdt. Date, yyyymmdd, vb. Use. System. Day. Of. Week,. vb. Use. System Formatdt. Date, hhnnss,. Use. System. Day. Of. Week, vb. Use. System s. Name. Path enviro Documents. Debug. Print s. Path s. Name. Item. Save. As s. Path s. Name, ol. MSG. End Sub. How to use the macros on this page. First You need to have macro security set to low during testing. The macros will not work otherwise. To check your macro security in Outlook 2. File, Options, Trust Center and open Trust Center Settings, and change the Macro Settings. In Outlook 2. 00. Tools, Macro Security. After you test the macro and see that it works, you can either leave macro security set to low or sign the macro. Some macros need to be in This. Outlook. Session, others go into a module or can be placed in either This. Outlook. Session or a module. The instructions are below. Open the VBA Editor by pressing AltF1. To put the code in a module Right click on Project. Insert Module. Copy and paste the macro into the new module. To put the macro code in This. Outlook. Session Expand Project. This. Outlook. Session. Copy then paste the macro into This. Outlook. Session. Click within the code, Select All using CtrlA, CtrlC to copy, CtrlV to paste. More information as well as screenshots are at How to use the VBA Editor.