Как пакетно конвертировать и прикреплять несколько документов Word как PDF Файлы в электронную почту Outlook

Документ Word легко прикрепить как PDF файл на электронную почту Outlook. Тем не менее, если вы хотите прикрепить несколько документов Word как PDF файлы на электронную почту, вы можете прочитать эту статью. Здесь мы покажем вам способ пакетного получения.

Чтобы прикрепить документ Word как PDF файл в электронную почту Outlook, вы можете сначала открыть документ Word и перейти в меню «Файл». Затем вы можете переключиться на вкладку «Сохранить и отправить», на которой есть «Отправить как PDF», как показано на следующем снимке экрана.

Таким образом, достаточно просто прикрепить документ Word как PDF на электронную почту. Но если вы хотите преобразовать и прикрепить несколько документов Word как PDF файлы на почту, лучше воспользоваться следующим способом. Это может позволить вам выполнить это навалом.

Пакетное преобразование и вложение нескольких документов Word как PDF Файлы на электронную почту

1. Для насtart, соберите нужные документы Word в той же папке Windows.
2. Затем запустите программу Outlook.
3. Затем скопируйте следующий код в неиспользуемый проект или модуль.

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. После этого переместите курсор в первую подпрограмму.
5. Затем нажмите «F5», чтобы сразу запустить этот макрос.
6. В небольшом всплывающем диалоговом окне выберите папку Windows, в которой хранятся исходные документы Word.
7. Сразу же будет создано новое электронное письмо, в котором вы сможете увидеть вложенный PDF файлы, как на следующем скриншотеost.

Из-за проблем с Outlook

Вас беспокоят разные проблемы с Outlook? Например, Outlook часто зависает в состоянии «не отвечает», или файл Outlook PST становится недоступным и т. д. В общем, вы можете сначала попробовать инструмент восстановления папки «Входящие», Скэнпст, чтобы исправить проблемы с PST. Тем не менее, иногда проблемы могут выходить за рамки того, что может сделать встроенный инструмент. Поэтому вам лучше держать поблизости более мощную внешнюю утилиту, такую ​​как DataNumen Outlook Repair.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая ремонт sql и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com