OutlookでXNUMXつまたは複数の電子メールのすべての添付ファイルを印刷するにはどうすればよいですか?
ご存知のように、クリックするとヘッダー、本文などのメールコンテンツのみが印刷されます。 フィレット > 印刷物 Microsoft Outlookでは、添付ファイルは印刷されません。 ここでは、MicrosoftOutlookで選択した電子メールのすべての添付ファイルを簡単に印刷する方法を紹介します。
- すべての添付ファイルをXNUMXつの電子メールメッセージにXNUMXつずつ印刷します
- すべての添付ファイルをXNUMXつの電子メールメッセージにバッチ印刷します
- 選択した複数の電子メールのすべての添付ファイルと写真をバッチ印刷する
- 本文の画像を除く、複数の選択された電子メールのすべての添付ファイルをバッチ印刷します
すべての添付ファイルをXNUMXつの電子メールメッセージにXNUMXつずつ印刷します
MicrosoftOutlookは私たちに クイックプリント 電子メールメッセージの添付ファイルをXNUMXつずつ印刷するのに役立つ機能。
1。 添付ファイルを後で印刷する電子メールメッセージを選択します。
2。 このメールの添付ファイルをXNUMXつクリックしてください。
3。 クリック クイックプリント ボタンの アクション グループを 添付ファイル タブでを確認できます。
注: アタッチメントツール メールの添付ファイルをクリックするまでアクティブになりません。
4. メールの添付ファイルを開くダイアログが表示されるので、 開いた ボタン。
この手順により、選択した添付ファイルが開き、同時にこの選択した添付ファイルが印刷されることに注意してください。
この電子メールの他の添付ファイルを印刷するには、手順2から手順4を繰り返してください。
Outlookの複数の電子メールからすべての添付ファイルをすばやく保存/エクスポートする
通常、XNUMXつのメールから添付ファイルを保存するには、 アタッチメントツール また、 すべての添付ファイルを保存 Outlookの機能。 しかし、複数の電子メールから、またはOutlookのメールフォルダ全体から添付ファイルを保存するとどうなりますか? Outlook用のKutoolsをお試しください すべてを救う (添付ファイル)機能。

すべての添付ファイルをXNUMXつの電子メールメッセージにバッチ印刷します
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 でマクロを有効または無効にする方法
デモ:Outlookの電子メールにXNUMXつまたはすべての添付ファイルを印刷する
先端: このビデオで、 クツール タブはによって追加されます Outlook用Kutools。 必要な場合はクリックしてください (詳細を見る)。 無制限に60日間の無料トライアルがあります!
Kutools for Outlook-100の高度な機能をOutlookにもたらし、作業をはるかに簡単にします!
- 自動CC / BCC メール送信時のルールによる。 自動転送 カスタムによる複数の電子メール。 自動返信 Exchangeサーバーなし、およびより多くの自動機能...
- BCC警告 -全員に返信しようとするとメッセージを表示する メールアドレスがBCCリストにある場合; 添付ファイルがない場合に通知する、その他の機能を思い出させる...
- メール会話のすべての添付ファイルで(すべて)返信; 多くのメールに返信する すぐに; あいさつを自動追加 返信するとき; 件名に日付を追加...
- 添付ファイルツール:すべてのメールのすべての添付ファイルを管理し、 自動デタッチ, すべて圧縮、すべての名前を変更、すべて保存...クイックレポート、 選択したメールを数える...
- 強力な迷惑メール 習慣による; 重複するメールと連絡先を削除する... Outlookでよりスマートに、より速く、より良くすることができます。
























