如何使用Outlook VBA批量打印多封電子郵件中的所有附件

如果您想批量打印多封所選電子郵件中的所有附件，可以使用本文介紹的方法。 它正在使用一段VBA代碼來快速實現它。

如您所見，當您選擇單個附件時，“附件”功能區中將提供直接的“快速打印”功能。 但是，當您選擇一個附件時，“快速打印”按鈕將被禁用，更不用說在許多選定電子郵件中打印所有附件了。 因此，如果您希望一次性打印多封郵件中的所有附件，則必須尋求其他方式，例如任何第三方工具或VBA。 針對此需求，在這裡我們將向您展示一段VBA代碼，這可以幫助您輕鬆地通過一次單擊就可以獲取它。

批量打印多封電子郵件中的所有附件

1. 首先，啟動Outlook應用程序。
2. 然後在主窗口中，按“ Alt + F11”鍵按鈕訪問VBA編輯器。
3. 在隨後的“ Microsoft Visual Basic for Applications”窗口中，打開一個空模塊。
4. 接下來，將以下VBA代碼複製到此類模塊中。

Sub BatchPrintAllAttachmentsinMultipleEmails()
    Dim objFileSystem As Object
    Dim strTempFolder As String
    Dim objSelection As Outlook.Selection
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim objShell As Object
    Dim objTempFolder As Object
    Dim objTempFolderItem As Object
    Dim strFilePath As String
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp for Attachments " & Format(Now, "YYYY-MM-DD_hh-mm-ss")
    'Create a new temp folder
    MkDir (strTempFolder)
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    For Each objItem In objSelection
        If TypeOf objItem Is MailItem Then
           Set objMail = objItem
           Set objAttachments = objMail.attachments
 
           'Save all the attachments in the temp folder
           For Each objAttachment In objAttachments
               strFilePath = strTempFolder & "\" & objAttachment.FileName
               objAttachment.SaveAsFile (strFilePath)
 
               'Print all the files in the temp folder
               Set objShell = CreateObject("Shell.Application")
               Set objTempFolder = objShell.NameSpace(0)
               Set objTempFolderItem = objTempFolder.ParseName(strFilePath)
               objTempFolderItem.InvokeVerbEx ("print")
           Next objAttachment
        End If
    Next
End Sub

5. 隨後，您可以將新的宏添加到快速訪問工具欄。
6. 之後，您應該將Outlook宏安全級別設置為低。
7. 最終您可以嘗試一下。

• 首先，在郵件列表中，選擇要打印其附件的幾封電子郵件。
• 然後在快速訪問工具欄中單擊新的宏按鈕。
• 接下來，將打印出所選電子郵件中的所有附件。

當心宏中隱藏的病毒

如果已將Outlook宏安全級別配置為較低，則必須花費大量精力來阻止惡意宏中的潛在病毒。 這是因為病毒可以一次性破壞您的Outlook數據。 Outlook數據損壞後，您將盡力 恢復Outlook 數據，例如重複使用有效的工具 DataNumen Outlook Repair.

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 損壞的SQL 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM