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

すべての添付ファイルを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つまたはすべての添付ファイルを印刷する
先端: このビデオで、 クツール タブはによって追加されます Kutools for Outlook。 必要な場合はクリックしてください ここから 無制限に60日間の無料トライアルがあります!
最高のオフィス生産性向上ツール
Kutools for Outlook - Outlook を強化する 100 以上の強力な機能
📧 自動メール: 不在時 (POP および IMAP で利用可能) / メール送信のスケジュール設定 / メール送信時のルールによる自動CC/BCC / 自動転送 (高度なルール) / あいさつを自動追加 / 複数受信者の電子メールを個別のメッセージに自動的に分割する ...
📨 電子メール管理: メールを簡単に思い出す / 件名などで詐欺メールをブロック / 重複するメールを削除する / 高度な検索 / フォルダーを統合する ...
📁 アタッチメント プロ: バッチ保存 / バッチデタッチ / バッチ圧縮 / 自動保存 / 自動デタッチ / 自動圧縮 ...
🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字 / タブ付きビューで Outlook の生産性を向上 / Outlook を閉じる代わりに最小化する ...
???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する / フィッシングメール対策 / 🕘送信者のタイムゾーンを表示 ...
👩🏼🤝👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加 / 連絡先グループを個別のグループに分割する / 誕生日のリマインダーを削除する ...
オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。



















