在outlook中批次列印pdf附件

本文由資料倉庫專家SeanTsai撰寫，他是HowtoGeek的好朋友...

本文由資料倉庫專家SeanTsai撰寫，他是HowtoGeek的好朋友

您是否曾經想過列印Outlook電子郵件框中收到的每個附件？假設您訂閱了一個免費傳真到PDF電子郵件服務，您希望它們像老式傳真機一樣自動打印出來。

如果您對一點VB（巨集）程式設計感到滿意，那麼這裡有一個快速的實現方法。

我們在這裡展示的是在Outlook中建立一個規則，並將傳入的傳真電子郵件移動到一個單獨的子資料夾中。使用VB程式碼，我們為您建立一個巨集來對該子資料夾中的每封電子郵件執行列印作業，這樣您就不必開啟電子郵件並逐個列印附件。

第一步

在Outlook中的“郵箱–YourName”下建立名為“Batch Prints”的子資料夾。

第2步

在Outlook中建立規則（從“工具/規則和警報”選單），如下所示：

將傳真供應商的電子郵件地址放在欄位中“郵箱：myfaxservice.com”. 在主題行中，放置每次從傳真供應商傳送的持久文字（不要放入將定期更改的文字）。第三個欄位“Batch Prints”是您在第一步中剛剛建立的子資料夾。

第3步

建立VB巨集。首先，透過轉到Tools/Macro/Visual Basic editor，開啟VB編輯器。您應該看到VB編輯器如下所示：

第4步

在左側的“專案”視窗中，右鍵單擊Project1項並**名為Module1的模組：

第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，所有附件都將按順序列印。一旦列印完畢，電子郵件將被刪除並移入垃圾箱。

注意：列印將路由到預設印表機，因此您必須確保設定並選擇了有效的印表機驅動程式。