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

Outlook ではメール自体を印刷できますが、1 通のメールや選択したメールから添付ファイルだけを印刷したことはありますか？この記事では、その作業をスムーズにこなすためのテクニックをご紹介します。

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

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

---

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

添付ファイルのみをメール本文を含めずに印刷したい場合は、「クイック印刷」機能をご利用いただけます。

1。メッセージウィンドウで、印刷したい添付ファイルを右クリックし、「クイック印刷」をコンテキストメニューから選択します。

2。次に、「保存」＞「保存」をクリックして、添付ファイルを任意の場所に保存してください。

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

3。次に、「ツール」＞「参照設定」をクリックし、「参照設定」ダイアログで「Microsoft Scripting Runtime」のチェックボックスをオンにしてください。
  

4。「OK」をクリックした後、「F5」キーを押すと、選択したメールに含まれるすべての添付ファイルが一括で印刷されます。

注：添付ファイルが画像の場合、「写真を印刷」ダイアログが最初に表示されます。「印刷」をクリックして、「印刷出力を名前を付けて保存」ダイアログへ進んでください。