Microsoft Outlook為我們提供了 快速打印 功能，可以幫助您一一打印電子郵件中的附件。

1。 選擇您稍後將打印附件的電子郵件。

2。 單擊此電子郵件中的一個附件。

3。 點擊 快速打印 按鈕在 動態 組上 附件 標籤。

注意： 附件工具 在您單擊電子郵件中的附件之前，不會激活它。

4. 出現打開郵件附件對話框，請單擊 已提交 按鈕。

請注意，此步驟將打開選定的附件，並同時打印此選定的附件。

要打印此電子郵件中的其他附件，請重複步驟2至步驟4。

在Outlook中快速保存/導出多封電子郵件中的所有附件

通常，我們可以通過激活以下電子郵件來保存一封電子郵件中的附件 附件工具 並應用 保存所有附件 Outlook中的功能。 但是，如果從多封電子郵件或Outlook中的整個郵件文件夾中保存附件怎麼辦？ 嘗試使用Kutools for Outlook的 保存全部 （附件）功能。

如果一封電子郵件中有很多附件，則要逐個打印它們會很耗時。 以下方法將引導您輕鬆批量打印所選電子郵件中的所有附件。

1。 選擇您稍後將打印附件的電子郵件。

2。 在Outlook 2010或更高版本中，請單擊 文件 > 列印 > 列印選項。 請參見以下屏幕截圖：

3. 在打印對話框中，請檢查 打印附件。 附件將僅打印到默認打印機 在選項 打印選項 部分。

4。 點擊 列印 按鈕。

5。 在彈出的打開郵件附件對話框中，請單擊 已提交 按鈕繼續。 （備註：此對話框將分別為每個附件彈出。）

現在將立即打印此選定電子郵件中的所有附件。

要在 Outlook 中打印多封電子郵件中的所有附件以及郵件正文中的所有圖片，請按照以下步驟應用 VBA 代碼。

1。 在郵件列表中，請按住 按Ctrl or 轉移 鍵選擇要打印附件的多封電子郵件。

2。 按 其他 + F11 鍵一起打開Microsoft Visual Basic for Applications窗口。

3。 在“ Microsoft Visual Basic for Applications”窗口中，單擊“ 工具 > 參考。 然後檢查 Microsoft腳本運行時 選項如下圖。 完成後，單擊 OK.

4。 點擊 插入 > 模塊，然後將以下VBA代碼粘貼到新的模塊窗口中。

VBA：打印多封Outlook電子郵件中的所有附件

Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/03
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        xFilePath = xTempFldPath & "\" & xAttachment.FileName
        xAttachment.SaveAsFile (xFilePath)
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
End Sub

5。 按 F5 鍵或單擊 跑 按鈕運行此 VBA 代碼。 現在您將看到所選電子郵件中的所有附件和消息正文中的圖片都已打印出來。

注意：

• 每個圖像都會彈出一個對話框，要求您確認打印。 而其他類型的文件將直接打印。
• 如果電子郵件簽名中有圖像，它們也會彈出對話框。
• 如果你得到 此項目中的宏已禁用 錯誤，請查看本教程： 如何在 Outlook 中啟用和禁用宏？

要在 Outlook 中僅打印多封電子郵件中的附件，而在郵件正文中打印圖片，請按照以下步驟應用 VBA 代碼。

1。 在郵件列表中，請按住 按Ctrl or 轉移 鍵選擇要打印附件的多封電子郵件。

2。 按 其他 + F11 鍵一起打開Microsoft Visual Basic for Applications窗口。

3。 在“ Microsoft Visual Basic for Applications”窗口中，單擊“ 工具 > 參考。 然後檢查 Microsoft腳本運行時 選項如下圖。 完成後，單擊 OK.

4。 點擊 插入 > 模塊，然後將以下VBA代碼粘貼到新的模塊窗口中。

VBA：打印多封Outlook電子郵件中的所有附件

Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/05
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        If IsEmbeddedAttachment(xAttachment) = False Then
          xFilePath = xTempFldPath & "\" & xAttachment.FileName
          xAttachment.SaveAsFile (xFilePath)
          Debug.Print xFilePath
        End If
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function

5。 按 F5 鍵或單擊 跑 按鈕運行此 VBA 代碼。 現在您將看到所選電子郵件中的所有附件都已打印出來。

注意：

• 每個附加的圖像都會彈出一個對話框，要求您確認打印。 而其他類型的文件將直接打印。
• 不會打印郵件正文中的圖像。
• 如果你得到 此項目中的宏已禁用 錯誤，請查看本教程： 如何在 Outlook 中啟用和禁用宏？