Data Recovery Blog

It is easy to attach a Word document as a PDF file to an Outlook email. Yet, if you’d like to attach multiple Word documents as PDF files to an email, you can read this article. Here we will show you a method to batch get it.

To attach a Word document as PDF file to an Outlook email, you can firstly open the Word document and go to “File” menu. Then, you can switch to “Save & Send” tab, on which there is a “Send as PDF” button, like the following screenshot.

Thus, it is quite simple to attach a Word document as PDF to an email. But, if you would like to convert and attach multiple Word documents as PDF files to a mail, you are better off using the following way. It can let you accomplish it in bulk.

Batch Convert & Attach Multiple Word Documents as PDF Files to an Email

1. For a start, gather the Word documents that you want in the same Windows folder.
2. Then, launch Outlook program.
3. Next, copy the following code into an unused project or module.

Dim objMail As Outlook.MailItem

Sub BatchAttachMultipleWordDocumentsAsPDFToEmail()
    Dim objShell As Object
    Dim objWindowsFolder As Object
    Dim strWindowsFolder As String

    Set objMail = Outlook.Application.CreateItem(olMailItem)

    'Select the specific Windows folder
    Set objShell = CreateObject("Shell.Application")
    Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a Windows folder:", 0, "")

    If Not objWindowsFolder Is Nothing Then
       strWindowsFolder = objWindowsFolder.self.Path & "\"

       Call ProcessFolders(strWindowsFolder)

       objMail.Display
    End If
End Sub

Sub ProcessFolders(strPath As String)
    Dim objFileSystem As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim objWordApp As Word.Application
    Dim objWordDocument As Word.Document
    Dim strDocumentName As String
    Dim strPDF As String

    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFileSystem.GetFolder(strPath)

    For Each objFile In objFolder.Files
        strFileExtension = objFileSystem.GetExtensionName(objFile)
        If LCase(strFileExtension) = "doc" Or LCase(strFileExtension) = "docx" Then
           Set objWordApp = CreateObject("Word.Application")
           Set objWordDocument = objWordApp.Documents.Open(objFile.Path)

           'Convert document to pdf
           strDocumentName = Left(objWordDocument.Name, (Len(objWordDocument.Name) - Len(strFileExtension)) - 1)
           strPDF = strPath & strDocumentName & ".pdf"
           objWordDocument.ExportAsFixedFormat strPDF, wdExportFormatPDF

           objWordDocument.Close False

           'Attach the pdf to email
           objMail.Attachments.Add strPDF

           Kill strPDF
        End If
    Next

    'Process all folders and subfolders
    If objFolder.SubFolders.Count > 0 Then
       For Each objSubfolder In objFolder.SubFolders
           If ((objSubfolder.Attributes And 2) = 0) And ((objSubfolder.Attributes And 4) = 0) Then
              ProcessFolders (objSubfolder.Path)
           End If
       Next
    End If
End Sub

4. After that, move cursor into the first subroutine.
5. Subsequently, press “F5” to run this macro right away.
6. In the popup small dialog box, select the Windows folder where the source Word documents are stored.
7. At once, a new email will be created, in which you can see the attached PDF files, like the following screenshost.

Plagued by Outlook Troubles

Are you disturbed by miscellaneous Outlook problems? For instance, Outlook is frequent stuck in “not responding” state or Outlook PST file becomes inaccessible, etc. In general, you can first try inbox repair tool, Scanpst, to fix PST issues. Yet, at times, the problems may be beyond what the inbuilt tool can do. Therefore, you’d better keep a more potent external utility in vicinity, such as DataNumen Outlook Repair.

Author Introduction:

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