Як пакетно конвертувати та додавати кілька документів Word як PDF Файли на електронну пошту Outlook

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

Щоб вкласти документ Word як PDF Щоб перенести файл до електронного листа Outlook, спочатку відкрийте документ Word і перейдіть до меню «Файл». Потім перейдіть на вкладку «Зберегти та надіслати», на якій є кнопка «Надіслати як PDF», як на наступному скріншоті.

Таким чином, досить просто вкласти документ Word як PDF на електронний лист. Але якщо ви хочете конвертувати та вкласти кілька документів Word як PDF файли на пошту, вам краще скористатися наступним способом. Це може дозволити вам це зробити навалом.

Пакетне перетворення та вкладення декількох документів Word як PDF Файли на електронну пошту

1. Для початку зберіть потрібні документи 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 файли, як-от наступний скріншот.

Страждають проблеми з Outlook

Вас турбують різні проблеми Outlook? Наприклад, Outlook часто застряє у стані “не відповідає”, або файл PST Outlook стає недоступним тощо. Загалом, спочатку можна спробувати інструмент відновлення папки “Вхідні”, scanpst, щоб виправити проблеми з PST. Однак часом проблеми можуть перевищувати можливості вбудованого інструменту. Тому вам краще залишити поблизу більш потужну зовнішню програму, таку як DataNumen Outlook Repair.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі sql ремонт та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com