Как пакетно конвертировать и прикреплять несколько документов 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) 'Выберите конкретную папку Windows Set objShell = CreateObject("Shell.Application") Set objWindowsFolder = objShell.BrowseForFolder( 0, "Выберите папку Windows:", 0, "") Если не objWindowsFolder Ничего, тогда 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 Установить objFileSystem = CreateObject("Scripting.FileSystemObject") Установить objFolder = objFileSystem.GetFolder(strPath) Для каждого файла objFile в objFolder.Files strFileExtension = objFileSystem.GetExtensionName(objFile) Если LCase(strFileExtension) = "doc" или LCase(strFileExtension ) = "docx" Затем установите objWordApp = CreateObject("Word.Application") Установите objWordDocument = objWordApp.Documents.Open(objFile.Path) 'Преобразовать документ в pdf
           strDocumentName = Left(objWordDocument.Name, (Len(objWordDocument.Name) - Len(strFileExtension)) - 1) strPDF = strPath & strDocumentName & ".pdf" objWordDocument.ExportAsFixedFormat ул.PDF, вдэкспортформатPDF

           objWordDocument.Close False 'Прикрепить pdf отправить по электронной почте objMail.Attachments.Add strPDF

           Убить ул.PDF
        End If Next 'Обработать все папки и подпапки 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