MicrosoftOutlookは私たちに クイックプリント 電子メールメッセージの添付ファイルをXNUMXつずつ印刷するのに役立つ機能。

1。 添付ファイルを後で印刷する電子メールメッセージを選択します。

2。 このメールの添付ファイルをXNUMXつクリックしてください。

3。 クリック クイックプリント ボタンの アクション グループを 添付ファイル タブでを確認できます。

注： アタッチメントツール メールの添付ファイルをクリックするまでアクティブになりません。

4. メールの添付ファイルを開くダイアログが表示されるので、 開いた ボタン。

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

この電子メールの他の添付ファイルを印刷するには、手順2から手順4を繰り返してください。

Outlookの複数の電子メールからすべての添付ファイルをすばやく保存/エクスポートする

通常、XNUMXつのメールから添付ファイルを保存するには、 アタッチメントツール また、 すべての添付ファイルを保存 Outlookの機能。 しかし、複数の電子メールから、またはOutlookのメールフォルダ全体から添付ファイルを保存するとどうなりますか？ Outlook用のKutoolsをお試しください すべてを救う （添付ファイル）機能。

XNUMX通のメールにたくさんの添付ファイルがあると、いちいち印刷するのに手間がかかります。 また、次の方法では、選択した電子メール メッセージのすべての添付ファイルを簡単に一括印刷できます。

1。 添付ファイルを後で印刷する電子メールメッセージを選択します。

2。 Outlook 2010以降のバージョンでは、をクリックしてください。 フィレット > 印刷物 > 印刷オプション。 次のスクリーンショットを参照してください。

3. [印刷] ダイアログ ボックスで、 添付ファイルを印刷します。 添付ファイルはデフォルトのプリンターにのみ印刷されます 内のオプション 印刷オプション の項目を検索します。

4。 クリック 印刷物 ボタン。

5。 [メールの添付ファイルを開く]ダイアログボックスが表示されたら、[ 開いた 先に進むためのボタン。 （（注意：このダイアログボックスは、添付ファイルごとに個別に表示されます。）

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

複数の電子メールのすべての添付ファイルと Outlook のメッセージ本文のすべての画像を印刷するには、次の手順に従って VBA コードを適用してください。

1。 メーリングリストで、 Ctrlキー or シフト 添付ファイルを印刷する複数の電子メールを選択するためのキー。

2。 押す 他の + F11 キーを一緒に押して、Microsoft Visual Basic forApplicationsウィンドウを開きます。

3。 [Microsoft Visual Basic for Applications]ウィンドウで、[ 工具 > リファレンス。 そして、 Microsoftスクリプトランタイム 以下に示すようにオプション。 完了したら、 をクリックします。 OK.

4に設定します。 OK をクリックします。 インセット > モジュール、次に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キー or シフト 添付ファイルを印刷する複数の電子メールを選択するためのキー。

2。 押す 他の + F11 キーを一緒に押して、Microsoft Visual Basic forApplicationsウィンドウを開きます。

3。 [Microsoft Visual Basic for Applications]ウィンドウで、[ 工具 > リファレンス。 そして、 Microsoftスクリプトランタイム 以下に示すようにオプション。 完了したら、 をクリックします。 OK.

4に設定します。 OK をクリックします。 インセット > モジュール、次に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 でマクロを有効または無効にする方法