如何批量转换并将多个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. 接下来，将以下代码复制到未使用的项目或模块中。

将objMail设置为Outlook。MailItem子BatchAttachMultipleWordDocumentsAsPDFToEmail() Dim objShell作为对象Dim objWindowsFolder作为对象Dim strWindowsFolder作为字符串Set objMail = Outlook.Application.CreateItem(olMailItem)’选择特定的Windows文件夹Set objShell = CreateObject("Shell.Application") Set objWindowsFolder = objShell。BrowseForFolder(0， "选择一个Windows文件夹:"，0，"")如果不是objWindowsFolder Is Nothing那么strWindowsFolder = objWindowsFolder.self. path & "\"调用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应用程序Dim objWordDocument作为Word。文档Dim strDocumentName As String Dim strPDF As String Set objFileSystem = CreateObject("Scripting.FileSystemObject") Set objFolder = objFileSystem. getfolder (strPath) For每个objFile In objFolder。文件strFileExtension = objfilesystm . getextensionname (objFile)如果LCase(strFileExtension) = "doc"或LCase(strFileExtension) = "docx"则设置objWordApp = CreateObject("Word.Application")设置objWordDocument = objWordApp. documents . open (objFile. path)转换文档到pdf strDocumentName = Left(objWordDocument. Left)的名字，(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. 在弹出的小对话框中，选择存储源Word文档的Windows文件夹。
7. 马上，一个新的电子邮件将被创建，你可以看到附件的PDF文件，如下截图。

前景堪忧

你是否被各种Outlook问题所困扰?例如，Outlook经常处于“未响应”状态或Outlook PST文件无法访问等。一般来说，你可以先尝试收件箱修复工具，Scanpst，以修复PST问题。然而，有时这些问题可能超出了内置工具的能力范围。因此，您最好在附近保留一个更有效的外部实用程序，例如DataNumen Outlook Repair。

作者简介:

Shirley Zhang是DataN万博ManBetX手机下载umen, Inc.的数据恢复专家，该公司是数据恢复技术的世界领导者，包括sql修复并展望维修软件产品。万博体育app官方网下载欲了解更多信息，请访问www.circareview.com