OutlookでXNUMXつの電子メールまたは選択した電子メールからのみ添付ファイルを印刷するにはどうすればよいですか？
Outlookでは、電子メールを印刷できますが、添付ファイルはXNUMXつの電子メールまたはOutlookで選択した電子メールからのみ印刷しましたか？ この記事では、この仕事を解決するための秘訣を紹介します。
クイックプリントを使用して、XNUMXつの電子メールから添付ファイルのみを印刷します
VBAを使用して選択した電子メールの添付ファイルのみを印刷する
クイックプリントを使用して、XNUMXつの電子メールから添付ファイルのみを印刷します
メール本文なしで添付ファイルのみを印刷するには、クイック印刷機能を使用できます。
1.メッセージウィンドウで、印刷する添付ファイルを右クリックし、[ クイックプリント コンテキストメニューから選択します。
2。 次に、をクリックします Save > Save 添付ファイルをある場所に保存します。
3.次に、添付ファイルを配置した場所に移動し、ファイルを開いて通常どおりに印刷します。
VBAを使用して選択した電子メールの添付ファイルのみを印刷する
選択した電子メールの添付ファイルを印刷する場合は、VBAコードを使用できます。
1.添付ファイルを印刷するメールを選択し、を押します Altキー+ F11 有効にするキー アプリケーション向け Microsoft Visual Basic 窓。
2。 ダブルクリック このOutlookSession Project1 ペインで、以下のコードをコピーしてスクリプトに貼り付けます。
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スクリプトランタイム チェックボックスをオンにします。
4。 クリック OK、次にプレス F5 選択した電子メールのすべての添付ファイルをまとめて印刷するためのキー。
Note：添付ファイルが画像の場合、飛び出します 写真を印刷する 最初にダイアログをクリックし、 印刷物 印刷出力を別名で保存 ダイアログ。
最高のオフィス生産性向上ツール
Kutools for Outlook - Outlook を強化する 100 以上の強力な機能
🤖 AIメールアシスタント: AI の魔法を備えたインスタント プロのメール - ワンクリックで天才的な返信、完璧な口調、多言語の習得。メールを簡単に変革しましょう! ...
📧 自動メール: 不在時 (POP および IMAP で利用可能) / メール送信のスケジュール設定 / メール送信時のルールによる自動CC/BCC / 自動転送 (高度なルール) / あいさつを自動追加 / 複数受信者の電子メールを個別のメッセージに自動的に分割する ...
📨 電子メール管理: メールを簡単に思い出す / 件名などで詐欺メールをブロック / 重複するメールを削除する / 高度な検索 / フォルダーを統合する ...
📁 アタッチメント プロ: バッチ保存 / バッチデタッチ / バッチ圧縮 / 自動保存 / 自動デタッチ / 自動圧縮 ...
🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字 / タブ付きビューで Outlook の生産性を向上 / Outlook を閉じる代わりに最小化する ...
???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する / フィッシングメール対策 / 🕘送信者のタイムゾーンを表示 ...
👩🏼🤝👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加 / 連絡先グループを個別のグループに分割する / 誕生日のリマインダーを削除する ...
オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。
