如何在Outlook中仅打印来自一封邮件或所选邮件的附件？

Author: Sun Last Modified: 2025-05-07

在Outlook中，您可以打印邮件，但您是否尝试过仅从一封邮件或选定的多封邮件中打印附件呢？本文将介绍解决此问题的方法。

使用快速打印仅打印单封邮件中的附件

使用VBA代码仅打印所选邮件中的附件

使用快速打印仅打印单封邮件中的附件

如果只想打印附件而不打印邮件正文，可以使用快速打印功能。

1. 在邮件窗口中，右键单击要打印的附件，从上下文菜单中选择“快速打印”。
doc print attachment 1

2. 然后点击“保存” > “保存”，将附件文件保存到某个位置。
doc print attachment 2
doc print attachment 3

3. 现在前往存放附件文件的位置，并像平常一样打开文件进行打印。

使用VBA代码仅打印所选邮件中的附件

如果您想打印所选邮件中的附件，可以使用VBA代码来实现。

1. 选择要打印附件的邮件，按下“Alt” + “F11”键以启用“Microsoft Visual Basic for Applications”窗口。

2. 在“项目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

doc print attachment 4