Outlookで選択したメールの添付ファイル情報の一覧を取得するにはどうすればよいですか？

Author: Siluvia Last Modified: 2025-05-23

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

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

Office Tab - Microsoft Officeでタブ形式の編集とブラウジングを有効にし、作業を快適に

Office Tabの機能を読む Office Tabをダウンロード

今すぐKutools for Outlookの無料版をアンロックして、70以上の機能を無制限に永久に楽しもう

AI技術を使用してメールの生産性を向上させ、迅速な返信、新規作成、メッセージの翻訳などをより効率的に行えます。
自動CC/BCCやルールによる自動転送でメールを自動化し、Exchangeサーバーなしで自動返信（外出中）を送信...
BCCに自分が含まれている場合に全員に返信する際のBCC警告や、添付ファイルを忘れた場合の「添付ファイルがない場合のリマインダー」などの通知を受け取れます...
添付ファイル付きでの返信（全員）、挨拶または日時を署名または件名に自動追加、複数のメールへの返信などにより、メールの効率を向上させます...
メール取り消し、添付ファイルツール（すべて圧縮、自動保存）、重複したメールの削除、クイックレポートなどでメール業務を合理化します...

Outlook 2024 - 2010またはOutlook 365をこれらの高度な機能で強化しましょう。70以上の強力な機能を活用して、メール体験を向上させましょう！

Kutools for Outlookのすべての機能を読む無料版をダウンロード

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

1. 添付ファイル情報が必要な、添付ファイル付きのメールを選択します。

2. キーボードで Alt + F11 キーを押して、Microsoft Visual Basic for Applications ウィンドウを開きます。

3. その後、Project1 > Microsoft Outlook Object > ThisOutlookSession をダブルクリックして、Project1 – ThisOutlookSession ウィンドウを開きます。スクリーンショットをご覧ください：

the Project1 – ThisOutlookSession window

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. これで Macros ダイアログボックスがポップアップ表示されますので、Run（実行）ボタンをクリックしてください。

a Macros dialog box