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

作者: シルヴィア最終更新日：2024年08月02日

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

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

Office タブ - Microsoft Office でタブによる編集と参照を有効にし、仕事をスムーズにします

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

OutlookのKutoolsのロックを解除する無料版今すぐ70以上の機能を無制限にご利用いただけます

メールの生産性を向上 AI技術で電子メールにすばやく返信したり、新しい電子メールを下書きしたり、メッセージを翻訳したり、より効率的に作業できるようになります。
メール送信を自動化する自動CC / BCC, 自動転送規則によって。送信自動返信 (不在時) Exchange サーバーを必要とせず...
などのリマインダーを受け取る BCC警告 BCC リストに登録しているときに全員に返信する場合、添付ファイルがない場合に通知する忘れた添付ファイルについては...
メールの効率を向上させる添付ファイル付きで返信 (すべて), 署名または件名に挨拶または日付と時刻を自動追加, 複数のメールに返信する...
メール送信を効率化するメールの取り消し, アタッチメントツール (すべて圧縮、すべて自動保存...)、重複を削除する, クイックレポート...

これらの高度な機能を使用して、Outlook 2024 - 2010 または Outlook 365 を強化します。70 を超える強力な機能を活用して、電子メールエクスペリエンスを向上させましょう。

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

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

1.情報を取得したい添付ファイル付きの電子メールを選択します。

2。プレス他の + F11 キーボードのキーを押して アプリケーション向け Microsoft Visual Basic 窓。

3.次に、 Project1 > MicrosoftOutlookオブジェクト > このOutlookSession を開く 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.今 マクロ ダイアログボックスが表示されたら、をクリックしてくださいラン

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