Outlookで1通または選択したメールから添付ファイルのみを印刷するにはどうすればよいですか？

Author: Sun Last Modified: 2025-05-23

Outlookではメールを印刷できますが、Outlookで1通のメールや選択したメールからの添付ファイルだけを印刷したことはありますか？この記事では、その方法を解決するためのコツをご紹介します。

クイック印刷を使用して1通のメールから添付ファイルのみを印刷する

VBAを使用して選択したメールから添付ファイルのみを印刷する

クイック印刷を使用して1通のメールから添付ファイルのみを印刷する

本文なしで添付ファイルのみを印刷するには、クイック印刷機能を使用できます。

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