Outlook で1 通または複数のメールに含まれるすべての添付ファイルを印刷するには、どうすればよいですか？

4。「メール添付ファイルを開く」ダイアログが表示されたら、「開く」ボタンをクリックしてください。

この手順により、選択した添付ファイルが開かれると同時に印刷されますので、ご注意ください。

このメールに含まれる他の添付ファイルを印刷するには、ステップ2 からステップ4 を繰り返してください。

Outlook で複数のメールから添付ファイルをすべて素早く保存／エクスポートする

通常、1 通のメールから添付ファイルを保存するには、添付ファイルツールをアクティブにして、Outlook の「すべての添付ファイルを保存」機能を使います。でも、複数のメールやOutlook のメールフォルダー全体から一括で添付ファイルを保存したい場合は？そんなときは、Kutools for Outlook の「すべて保存」（添付ファイル）機能をお試しください！

今すぐKutools for Outlook の無料版をお楽しみください。100+の機能が含まれており、70+の機能は生涯無料でご利用いただけます！

1 通のメール内のすべての添付ファイルを一括印刷する

1 通のメールに多数の添付ファイルが含まれていると、1 つずつ印刷するのは非常に手間がかかります。以下の方法を使えば、選択したメール内のすべての添付ファイルを簡単に一括印刷できます。

1。印刷したい添付ファイル付きのメールメッセージを選択します。

2。Outlook 2010 以降のバージョンでは、「ファイル」 > 「印刷」 > 「印刷オプション」をクリックしてください。下記のスクリーンショットをご参照ください：

3。「印刷」ダイアログボックスの「印刷オプション」セクションで、「添付ファイルを印刷する。添付ファイルは既定のプリンターでのみ印刷されます」オプションをオンにしてください。

4。「印刷」ボタンをクリックします。

5。表示される「メール添付ファイルを開く」ダイアログボックスで、「開く」ボタンをクリックして続行してください。（)注：このダイアログボックスは添付ファイルごとに個別に表示されます。）

これで、選択したメール内のすべての添付ファイルが一度に印刷されます。

選択した複数のメール内のすべての添付ファイルと画像を一括印刷する

Outlook で複数のメールに含まれるすべての添付ファイルと本文内の画像を印刷するには、以下の手順に従って VBA コードを適用してください。

1。メールリストで、印刷したい添付ファイルを含む複数のメールを、CtrlキーまたはShiftキーを押しながら選択してください。

2。Alt+F11キーを同時に押して、「Microsoft Visual Basic for Applications」ウィンドウを開きます。

3。「Microsoft Visual Basic for Applications」ウィンドウで、「ツール」 > 「参照設定」をクリックします。表示されたダイアログで、「Microsoft Scripting Runtime」のチェックボックスをオンにしてください。設定が完了したら、「OK」をクリックします。

4。「挿入」＞「モジュール」をクリックし、新しいモジュールウィンドウに次の VBA コードを貼り付けてください。

VBA：複数のOutlook メールのすべての添付ファイルを印刷する

Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/03
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        xFilePath = xTempFldPath & "\" & xAttachment.FileName
        xAttachment.SaveAsFile (xFilePath)
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
End Sub

5。F5キーを押すか、「実行」ボタンをクリックして、この VBA コードを実行してください。選択したメールに含まれるすべての添付ファイルと本文内の画像が印刷されます。

注：

• 各画像について印刷の確認を求めるポップアップダイアログが表示されますが、その他のファイル形式は直接印刷されます。
• メールの署名に画像が含まれている場合も、同様にポップアップダイアログボックスが表示されます。
• 次のようなエラーが表示された場合：「このプロジェクトのマクロは無効になっています」、以下のチュートリアルをご確認ください：「Outlook でマクロを有効化および無効化する方法」

選択した複数のメール内の添付ファイルをすべて一括印刷する（本文内の画像を除く）

Outlook で複数のメールの添付ファイルのみを印刷し、本文に含まれる画像は印刷しない場合は、以下の手順に従って VBA コードを適用してください。

1。メールリストで、印刷する添付ファイルを含む複数のメールをCtrlキーまたはShiftキーを押しながら選択します。

2。Alt+F11キーを同時に押して、「Microsoft Visual Basic for Applications」ウィンドウを開きます。

3。「Microsoft Visual Basic for Applications」ウィンドウで、「ツール」>「参照設定」をクリックします。次に、以下のように「Microsoft Scripting Runtime」オプションをオンにします。完了したら、「OK」をクリックします。

4。「挿入」>「モジュール」をクリックし、新しいモジュールウィンドウに以下の VBA コードを貼り付けます。

VBA：複数のOutlook メールのすべての添付ファイルを印刷する

Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/05
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        If IsEmbeddedAttachment(xAttachment) = False Then
          xFilePath = xTempFldPath & "\" & xAttachment.FileName
          xAttachment.SaveAsFile (xFilePath)
          Debug.Print xFilePath
        End If
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function

5。F5キーを押すか、「実行」ボタンをクリックして、この VBA コードを実行してください。選択したメールに含まれるすべての添付ファイルが印刷されます。

注：

• 添付された各画像について、印刷の確認を求めるポップアップダイアログが表示されます。一方、その他のファイル形式は直接印刷されます。
• 本文内の画像は印刷されません。
• 次のようなエラーが表示された場合：「このプロジェクトのマクロは無効になっています」、以下のチュートリアルをご確認ください：「Outlook でマクロを有効化および無効化する方法」

デモ：Outlook メールの添付ファイルを1 つまたはすべて印刷する

---

最高の Office 生産性ツール

まったく新しいKutools for Outlook を、100 以上の驚きの機能とともに体験しましょう！今すぐダウンロード！

🤖KUTOOLS AI：高度な AI 技術を活用して、メールの返信、要約、最適化、拡張、翻訳、作成など、あらゆる操作をラクラクこなします。

📧メール自動化：自動返信（POP および IMAP 対応）/メールのスケジュール送信/メール送信時にルールに基づいて自動 CC/BCC/自動転送（高度なルール）/自動で挨拶文を追加/複数の宛先を持つメールを個別のメッセージに自動分割...

📨メール管理：メールの取り消し/件名などを基準に詐欺メールをブロック/重複したメールを削除/高度な検索/フォルダーを整理...

📁添付ファイルプロ：一括保存/一括分離/一括圧縮/自動保存/自動的に切り離す/自動圧縮...

🌟インターフェースの魅力：😊さらに美しくクールな絵文字を多数収録/重要なメールが届いた際に通知/Outlook を閉じる代わりに最小化...

👍ワンクリックの驚き：全員に【Attachment】付きで返信/フィッシングメール対策/🕘送信者の現在時刻ゾーンを表示...

👩🏼‍🤝‍👩🏻連絡先とカレンダー：選択したメールから連絡先を追加を一括登録/連絡先グループを個別のグループに分割/誕生日のリマインダーを削除...

Kutools はお好みの言語でお使いいただけます！英語、スペイン語、ドイツ語、フランス語、中国語をはじめ、40 以上の言語をサポートしています！

ワンクリックでKutools for Outlook の機能を即解放！今すぐダウンロードして、効率を飛躍的にアップさせましょう！

Kutools for Outlook の機能一覧      今すぐダウンロード      購入ページへ

🚀 ワンクリックダウンロード — Office アドインをすべて入手

強く推奨：Kutools for Office（5-in-1）

ワンクリックで5 つのインストーラーを 一括ダウンロード！ ―Kutools for Excel、Outlook、Word、PowerPointおよびOffice Tab Pro。今すぐダウンロード！

• ✅ワンクリックで簡単操作：5 つのセットアップパッケージをたった1 回のクリックで一括ダウンロードできます。
• 🚀どんな Office 作業にも対応可能：必要なときに、必要なアドインをすぐインストールできます。
• 🧰含まれるもの：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

スイートについて⬇ スイートをダウンロード💳 スイートを購入