如何仅打印 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”键，即可批量打印所选邮件中的所有附件。

注意：如果附件为图片，系统会首先弹出“打印图片”对话框，请点击“打印”按钮，进入“另存打印输出为”对话框。