在outlook中批量打印pdf附件

本文由数据仓库专家SeanTsai撰写，他是HowtoGeek的好朋友...

本文由数据仓库专家SeanTsai撰写，他是HowtoGeek的好朋友

您是否曾经想过打印Outlook电子邮件框中收到的每个附件？假设您订阅了一个免费传真到PDF电子邮件服务，您希望它们像老式传真机一样自动打印出来。

如果您对一点VB（宏）编程感到满意，那么这里有一个快速的实现方法。

我们在这里展示的是在Outlook中创建一个规则，并将传入的传真电子邮件移动到一个单独的子文件夹中。使用VB代码，我们为您创建一个宏来对该子文件夹中的每封电子邮件运行打印作业，这样您就不必打开电子邮件并逐个打印附件。

第一步

在Outlook中的“邮箱–YourName”下创建名为“Batch Prints”的子文件夹。

第2步

在Outlook中创建规则（从“工具/规则和警报”菜单），如下所示：

在outlook中批量打印pdf附件

将传真供应商的电子邮件地址放在字段中“邮箱：myfaxservice.com”. 在主题行中，放置每次从传真供应商发送的持久文本（不要放入将定期更改的文本）。第三个字段“Batch Prints”是您在第一步中刚刚创建的子文件夹。

第3步

创建VB宏。首先，通过转到Tools/Macro/Visual Basic editor，打开VB编辑器。您应该看到VB编辑器如下所示：

在outlook中批量打印pdf附件

第4步

在左侧的“项目”窗口中，右键单击Project1项并**名为Module1的模块：

在outlook中批量打印pdf附件

第5步

创建模块1后，将下面的代码复制到右侧的窗口中，如项目符号3所示。

Public Sub PrintAttachments() Dim Inbox As MAPIFolder Dim Item As MailItem Dim Atmt As Attachment Dim FileName As String Dim i As Integer Set Inbox = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Parent.Folders.Item("Batch Prints") For Each Item In Inbox.Items For Each Atmt In Item.Attachments ' all attachments are first saved in the temp folder C:\Temp. Be sure to create this folder. FileName = "C:\Temp\" & Atmt.FileName Atmt.SaveAsFile FileName ' please change the program folder accordingly if the Acrobat Reader is not installed on drive C: Shell """C:\Program Files\Adobe\Reader 8.0\Reader\acrord32.exe"" /h /p """ + FileName + """", vbHide Next Item.Delete 'remove this line if you don't want the email to be deleted automatically Next Set Inbox = Nothing End Sub

请注意，您可能需要更改调用Acrobat的代码行以匹配系统上的路径。

第6步

现在安装完成了。所有来自传真供应商的电子邮件都将在收到时移到“批打印”中。请注意，在这个示例中，我们希望所有附件都是PDF格式的，因此我们使用Acrobat acrord32.exe打印每个附件。

使用宏

现在，如果要打印所有附件，只需转到宏并运行宏PrintAttachments，所有附件都将按顺序打印。一旦打印完毕，电子邮件将被删除并移入垃圾箱。

注意：打印将路由到默认打印机，因此您必须确保设置并选择了有效的打印机驱动程序。

在outlook中批量打印pdf附件