複数のOutlook電子メールの添付ファイルリストを印刷する2つの簡単な方法

Outlookソリューション 2025 年 9 月 29 日

場合によっては、複数の電子メールの添付ファイルリストを抽出して印刷する必要があります。この記事では、それを取得するための2つの方法を説明します。

参照用に複数の添付ファイルが付いた複数の電子メールを受信した場合は、これらの添付ファイル名を印刷することをお勧めします。この状況で、どうすればそれをまとめて入手できますか？以下、複数のOutlookメールの添付ファイルリストをすばやく印刷する2つの方法を説明します。

方法1：添付ファイルリストをリッチテキスト形式で印刷およびコピーする

最初に、Outlookの電子メールを開きます。
次に、メッセージウィンドウで「アクション」をクリックし、「メッセージの編集」を選択します。
次に、「テキストのフォーマット」タブに移動し、「リッチテキスト」フォーマットを選択します。
すぐに、電子メールの添付ファイルが本文に移動されていることがわかります。
その後、「メッセージ」タブの「返信」グループの「返信」ボタンをクリックします。
後続のメールでは、下のスクリーンショットのように、添付ファイルリストがすでに本文に含まれています。
これで、添付ファイルリストを新しい電子メールにコピーできます。
後で、この方法を使用して、他の電子メールの添付ファイルリストを新しいメールにコピーします。
最後に、通常どおりこの新着メールを印刷できます。

方法2：OutlookVBAを介して添付ファイルリストを印刷する

まず、「Alt + F11」を押してOutlook VBAエディターを開きます。
次に、次のVBAコードをモジュールにコピーします。

Sub PrintAttachmentListsOfManyEmails()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim objTempMail As Outlook.MailItem
    
    'Get the selected emails
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If Not (objSelection Is Nothing) Then
       'Input the attachment lists into a temp mail
       Set objTempMail = Outlook.Application.CreateItem(olMailItem)
 
       For i = 1 To objSelection.Count
           If objSelection(i).Class = olMail Then
              Set objMail = objSelection(i)
              If objMail.Attachments.Count > 0 Then
 
                 objTempMail.Body = objTempMail.Body & vbCr & "-------------------------------------------------------------------------------------------------------------" & vbCr & vbCr & i & ". " & objMail.Subject & vbCr & vbCr & "Attachment List:" & vbCr
 
                 For n = 1 To objMail.Attachments.Count
                     Set objAttachment = objMail.Attachments(n)
                     objTempMail.Body = objTempMail.Body & vbCr & "<<" & objAttachment.FileName & " Size: " & Round(objAttachment.Size / 1024, 1) & " KB>>"
                 Next
              End If
           End If
       Next

       'Print the temp mail
       objTempMail.PrintOut
     End If
End Sub

その後、記事を参照して、このマクロをクイックアクセスツールバーに追加します–「OutlookでVBAコードを実行する方法"
最終的には、このマクロを試してください。

最初に、いくつかのメールを選択します。
次に、クイックアクセスツールバーのマクロボタンをクリックします。
すぐに、これらの電子メールの添付ファイルリストが印刷されている必要があります。

最高のOutlook修復ツールに頼る

Outlookファイルの損傷に遭遇したときは、最近のOutlookデータのバックアップが手元にあることをお勧めします。それはあなたが複雑なOutlookファイルの修正を取り除くことを可能にすることができます。ただし、バックアップの復元に失敗する場合があります。その時点で、次のような、より優れたプロフェッショナルな修正ツールに頼る必要があります。 DataNumen Outlook Repair。修理できます破損したPST 数分以内に。

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 mdfを修復すると見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com