如何在Outlook中僅列印單一郵件或選中郵件的附件？

Author: Sun Last Modified: 2025-05-12

在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. 雙擊「Project1」窗格中的「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