KutoolsforOffice— 1 つのソリューション、5 つの強力なツール。少ない労力で大きな成果。

Outlook で選択したメールの添付ファイル情報の一覧を取得する方法

著者Siluvia変更日

添付ファイル付きの受信メールについて、その表示名やファイル名など、詳細な情報を確認したい場合があります。実は、VBA コードを使えば、Outlook で現在選択中のメールに含まれる添付ファイルの一覧を簡単に取得できます。詳しくは、以下のチュートリアルをご覧ください。

Outlook で選択したメールの添付ファイル情報の一覧を取得する

Office Tab - Microsoft Office でタブを使った編集・閲覧を有効化し、作業を快適に
今すぐKutools for Outlook をアンロックして、100 以上の機能を永久に無制限でご利用ください。
これらの高度な機能でOutlook 2024 - 2010 またはOutlook 365 をご活用ください。100+の強力な機能で、メール体験をさらに快適に！

Outlook で選択したメールの添付ファイル情報の一覧を取得する

1．添付ファイルの情報を取得したいメールを選択してください。

2．キーボードでAlt＋F11キーを押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

3．次に、Project1＞Microsoft Outlook Object＞ThisOutlookSessionをダブルクリックして、Project1 – ThisOutlookSessionウィンドウを開いてください。スクリーンショットを参照してください：

Project1 – ThisOutlookSession ウィンドウ

4．次に、以下の VBA コードを「Project1 – ThisOutlookSession」ウィンドウにコピー＆ペーストしてください。

VBA コード：添付ファイル情報の一覧を取得する

Option Explicit
Public Sub GetAttachmentList()
    Dim selItem As Object
    Dim aMail As MailItem
    Dim aAttach As attachment
    Dim Report As String
    
    For Each selItem In Application.ActiveExplorer.Selection
        If selItem.Class = olMail Then
            Set aMail = selItem
            For Each aAttach In aMail.Attachments
                Report = Report & vbCrLf & "------------------------------------------------------------------------" & vbCrLf
                Report = Report & GetAttachmentInfo(aAttach)
            Next
            Call CreateReportEmail("Attachment Report", Report)
        End If
    Next
End Sub
 
Public Function GetAttachmentInfo(attachment As attachment)
    Dim Report
    GetAttachmentInfo = ""
    Report = Report & "Index: " & attachment.Index & vbCrLf
    Report = Report & "Display Name: " & attachment.DisplayName & vbCrLf
    Report = Report & "File Name: " & attachment.FileName & vbCrLf
    Report = Report & "Block Level: " & attachment.BlockLevel & vbCrLf
    Report = Report & "Path Name: " & attachment.PathName & vbCrLf
    Report = Report & "Position: " & attachment.Position & vbCrLf
    Report = Report & "Size: " & attachment.Size & vbCrLf
    Report = Report & "Type: " & attachment.Type & vbCrLf
    
    GetAttachmentInfo = Report
End Function
Sub CreateReportEmail(Title As String, Report As String)
    Dim aMail As MailItem
    
    Set aMail = Application.CreateItem(olMailItem)
        
    aMail.Subject = Title
    aMail.Body = Report
    
    aMail.Display
End Sub

5．キーボードでF5キーを押して、VBA コードを実行します。

6．マクロダイアログボックスが表示されたら、実行ボタンをクリックしてください。

マクロ ダイアログ ボックス

7．実行ボタンをマクロダイアログボックス内でクリックすると、選択したメールのすべての添付ファイル情報が本文に表示された新しいメッセージウィンドウが開きます。スクリーンショットをご参照ください：

選択したメールのすべての添付ファイル情報がメール本文内にリストされた新しいメッセージ ウィンドウが作成されます

注記：この VBA コードは、Outlook 2007／2010／2013 でご利用いただけます。

最高の Office 生産性ツール

まったく新しいKutools for Outlook を、100 以上の驚きの機能とともに体験しましょう！今すぐダウンロード！

🤖KUTOOLS AI：高度な AI 技術を活用して、メールの返信、要約、最適化、拡張、翻訳、作成など、あらゆる操作をラクラクこなします。

📧メール自動化：自動返信（POP および IMAP 対応）/メールのスケジュール送信/メール送信時にルールに基づいて自動 CC/BCC/自動転送（高度なルール）/自動で挨拶文を追加/複数の宛先を持つメールを個別のメッセージに自動分割...

📨メール管理：メールの取り消し/件名などを基準に詐欺メールをブロック/重複したメールを削除/高度な検索/フォルダーを整理...

📁添付ファイルプロ：一括保存/一括分離/一括圧縮/自動保存/自動的に切り離す/自動圧縮...

🌟インターフェースの魅力：😊さらに美しくクールな絵文字を多数収録/重要なメールが届いた際に通知/Outlook を閉じる代わりに最小化...

👍ワンクリックの驚き：全員に【Attachment】付きで返信/フィッシングメール対策/🕘送信者の現在時刻ゾーンを表示...

👩🏼‍🤝‍👩🏻連絡先とカレンダー：選択したメールから連絡先を追加を一括登録/連絡先グループを個別のグループに分割/誕生日のリマインダーを削除...

Kutools はお好みの言語でお使いいただけます！英語、スペイン語、ドイツ語、フランス語、中国語をはじめ、40 以上の言語をサポートしています！

ワンクリックでKutools for Outlook の機能を即解放！今すぐダウンロードして、効率を飛躍的にアップさせましょう！

kutools for outlook features1kutools for outlook features2

🚀 ワンクリックダウンロード — Office アドインをすべて入手

強く推奨：Kutools for Office（5-in-1）

ワンクリックで5 つのインストーラーを 一括ダウンロード！ ―Kutools for Excel、Outlook、Word、PowerPointおよびOffice Tab Pro。今すぐダウンロード！

  • ✅ワンクリックで簡単操作：5 つのセットアップパッケージをたった1 回のクリックで一括ダウンロードできます。
  • 🚀どんな Office 作業にも対応可能：必要なときに、必要なアドインをすぐインストールできます。
  • 🧰含まれるもの：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint