如何僅列印 Outlook 中單封郵件或已選取郵件的附件？

在 Outlook 中，您可以列印郵件，但您是否曾想只列印單封郵件或已選取郵件中的附件呢？本文將為您介紹滿足此需求的實用技巧。

使用快速列印功能僅列印單封郵件的附件

使用 VBA 僅列印已選取郵件的附件

---

使用快速列印功能僅列印單封郵件的附件

若只想列印附件而不包含郵件內文，請使用「快速列印」功能。

1. 在郵件視窗中，於您要列印的附件上按一下滑鼠右鍵，從快顯功能表中選擇「快速列印」。

2. 接著點選「儲存」>「儲存」，將附件檔案儲存至您指定的位置。

3. 現在請前往您存放附件檔案的位置，開啟該檔案並照常列印。

---

使用 VBA 僅列印已選取郵件的附件

若要列印已選取多封郵件中的附件，可使用 VBA 程式碼輕鬆達成。

1. 選取您要列印附件的郵件，按下「Alt」+「F11」鍵，即可開啟「Microsoft Visual Basic for Applications」視窗。

2. 在「Project 1」窗格中雙擊「ThisOutlookSession」，並將下方程式碼複製貼上至該指令碼中。

VBA：列印已選取郵件的附件

Sub BatchPrintAllAttachmentsInMultipleEmails()
'UpdatebyExtendoffice20180417
Dim xFSO As Scripting.FileSystemObject
Dim xTmpFldPath As String
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim xShell As Object
Dim xTempFolder As Object
Dim xTempFolderItem As Object
Dim xFilePath As String
On Error Resume Next
Set xFSO = CreateObject("Scripting.FileSystemObject")
xTmpFldPath = xFSO.GetSpecialFolder(2).Path & "\Temp for Attachments"
If xFSO.FolderExists(xTmpFldPath) = False Then
    xFSO.CreateFolder xTmpFldPath
End If
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xShell = CreateObject("Shell.Application")
Set xTempFolder = xShell.NameSpace(0)
For Each xItem In xSelection
    If xItem.Class = olMail Then
        Set xMailItem = xItem
        If xMailItem.Attachments.Count = 0 Then Exit Sub
        Set xAttachments = xMailItem.Attachments
        For Each xAttachment In xAttachments
            xFilePath = xTmpFldPath & "\" & xAttachment.FileName
            xAttachment.SaveAsFile (xFilePath)
            Set xTempFolderItem = xTempFolder.ParseName(xFilePath)
            xTempFolderItem.InvokeVerbEx ("print")
        Next
    End If
Next

'If xFSO.FolderExists(xTmpFldPath) Then
'    xFSO.DeleteFolder xTmpFldPath, True
'End If
End Sub

3. 接著點選「工具」>「參考設定」，在「參考設定」對話方塊中勾選「Microsoft Scripting Runtime」核取方塊。
  

4. 點選「確定」後，按下「F5」鍵，即可批次列印所選郵件中的所有附件。

注意：若附件為圖片，系統將先彈出「列印圖片」對話方塊，請點選「列印」，即可進入「將列印輸出另存為」對話方塊。