OutlookでXNUMXつの電子メールまたは選択した電子メールからのみ添付ファイルを印刷するにはどうすればよいですか？

作者: サン最終更新日：2024年08月28日

Outlookでは、電子メールを印刷できますが、添付ファイルはXNUMXつの電子メールまたはOutlookで選択した電子メールからのみ印刷しましたか？この記事では、この仕事を解決するための秘訣を紹介します。

クイックプリントを使用して、XNUMXつの電子メールから添付ファイルのみを印刷します

VBAを使用して選択した電子メールの添付ファイルのみを印刷する

クイックプリントを使用して、XNUMXつの電子メールから添付ファイルのみを印刷します

メール本文なしで添付ファイルのみを印刷するには、クイック印刷機能を使用できます。

1.メッセージウィンドウで、印刷する添付ファイルを右クリックし、[ クイックプリント コンテキストメニューから選択します。
ドキュメント印刷添付1

2。次に、をクリックします Save > Save 添付ファイルをある場所に保存します。
ドキュメント印刷添付2
ドキュメント印刷添付3

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

ドキュメント印刷添付4