How to Quickly Export Multiple Outlook Emails as a Single PDF File

Many users have the requirement of exporting multiple emails as a single PDF file in Outlook. Therefore, in this article, we’ll share you a piece of VBA code, which can accomplish this task in an instant.

Outlook doesn’t provide any features to export an Outlook email as a PDF file, not to mention exporting multiple emails as one PDF file. Hence, if you need to do it, you have to seek other approaches, such as third party tool or VBA. Thereinafter, we will expose a means which is using VBA code.

Export Multiple Outlook Emails as a Single PDF File

1. First of all, you should launch your Outlook properly,
2. Then, in the Outlook main screen, you could press “Alt + F11” keys to access its VBA editor.
3. Next, in the “Microsoft Visual Basic for Applications” window, you could open a module that is not in use or simply insert a brand new module.
4. Subsequently, you are required to copy the VBA code below into this module.

Sub ExportMultipleOutlookEmails_AsOnePDFFile()
    Dim objSelection As Outlook.Selection
    Dim objFileSystem As Object
    Dim strTempFolder As String
    Dim objMail As Outlook.MailItem
    Dim strFileName As String
    Dim strFilePath As String
    Dim objWordApp As Word.Application
    Dim objTempWordDocument As Word.Document
    Dim strFile As String
    Dim strPDF As String
 
    'Get all selected emails
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If Not (objSelection Is Nothing) Then
 
       'Create a temp folder
       Set objFileSystem = CreateObject("Scripting.FileSystemObject")
       strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp" & Format(Now, "yyyymmddhhmmss")
       MkDir (strTempFolder)
 
       'Save all emails as mht files in temp folder
       For Each objMail In objSelection
           strFileName = objMail.Subject
           strFileName = Replace(strFileName, "/", "-")
           strFileName = Replace(strFileName, "\", "-")
           strFileName = Replace(strFileName, ":", "-")
           strFileName = Replace(strFileName, "?", "-")
           strFileName = Replace(strFileName, Chr(34), "-")
           strFileName = Format(objMail.ReceivedTime, "yyyy-mm-dd") & " - " & strFileName & ".mht"
 
           strFilePath = strTempFolder & "\" & strFileName
           objMail.SaveAs strFilePath, olMHTML
       Next
 
       'Create a temp Word document
       Set objWordApp = CreateObject("Word.Application")
       Set objTempWordDocument = objWordApp.Documents.Add
 
       'Copy the contents of all mht files into the temp Word document
       strFile = Dir(strTempFolder & "\" & "*.mht")
       i = 0
       While strFile <> ""
             i = i + 1
             Set objWordRange = objTempWordDocument.Range
             With objWordRange
                  .Collapse wdCollapseEnd
               If i > 1 Then
                  .InsertBreak wdSectionBreakNextPage
                  .End = objTempWordDocument.Range.End
                  .Collapse wdCollapseEnd
               End If
                  .InsertFile strTempFolder & "\" & strFile
            End With
            strFile = Dir()
       Wend
 
       'Change the path to save the PDF file
       strPDF = "E:\Merged Emails.pdf"
 
       'Export the temp Word document as a PDF file
       objTempWordDocument.ExportAsFixedFormat strPDF, wdExportFormatPDF
 
       'Close & discard the temp Word document
       objTempWordDocument.Close False
       objWordApp.Quit
 
      'Delete the temp folder
       objFileSystem.DeleteFolder (strTempFolder)
 
       MsgBox "Completed!"
    End If
End Sub

5. After that, you can exit the current window.
6. Then go to “File” > “Options” > “Quick Access Toolbar” to add this new macro to Quick Access Toolbar.
7. Later change your Outlook macro security level to low.
8. Finally, just take a shot by following steps:

• Firstly, select multiple emails which you want to export.
• Then, click on the new macro button in Quick Access Toolbar.
• After you receive the message mentioning “Completed”, you can go to the predefined local folder to find the new PDF file.
• Open this PDF file. You’ll see that all the previously selected emails have been exported into separated pages.

Keep Tabs on Suspicious Risks around Outlook

Since Outlook is susceptible to corruptions for various factors, such as viruses, inner errors, software faults and hardware issues, etc., you should keep an eye on for a variety of potential dangerous matters around your Outlook. In addition, it is prudent to prepare a remarkable and dependable fix tool, such as DataNumen Outlook Repair. It is capable of performing successful Outlook recovery without any hassles.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including repair mdf and outlook repair software products. For more information visit www.datanumen.com