Outlookの受信メールの添付情報をExcelブックに自動エクスポートする方法

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

一部のユーザーは、すべての受信メールに添付ファイルの情報を自動記録したいと考えています。この記事では、それを簡単に実現するための簡単な時間を共有します。

受信した各Outlook電子メールの添付情報をExcelファイルにエクスポートすることに慣れている場合は、Outlookにこの作業を自動的に実行させることができるいくつかのアプローチが必要になる可能性があります。これにより、追跡添付ファイルを手動で取り除くことができます。幸い、Outlookはそのような直接的な機能を提供していませんが、それでも少しのスクリプトでそれを実現できます。今、私たちはあなたに段階的に教えます。

受信メールの添付情報をExcelに自動エクスポート

まず、Outlookアプリケーションを起動します。
次に、「Alt + F11」を介してVBAエディターに移動します。
次に、次のVBAコードをモジュールにコピーします。

Sub AutoExportAttachmentInfo(objMail As Outlook.MailItem)
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim nLastRow As Integer
    Dim objAttachment As Outlook.Attachment
 
    If objMail.Attachments.Count > 0 Then
       'Change the path to the specific Excel file
       strExcelFile = "E:\Attachment Info.xlsx"
 
       Set objExcelApp = CreateObject("Excel.Application")
       objExcelApp.Visible = True
       Set objExcelWorkbook = objExcelApp.Workbooks.Open(strExcelFile)
       Set objExcelWorksheet = objExcelWorkbook.Sheets("Sheet1")
 
       'Export Attachment info to Excel
       For Each objAttachment In objMail.Attachments
           nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
 
           With objExcelWorksheet
                .Cells(nLastRow, 1) = objMail.Subject
                .Cells(nLastRow, 2) = objMail.SenderEmailAddress
                .Cells(nLastRow, 3) = objAttachment.FileName
                .Cells(nLastRow, 4) = objMail.ReceivedTime
           End With
       Next
 
       objExcelWorksheet.Columns("A:C").AutoFit
       objExcelWorkbook.Close True
       objExcelApp.Quit
    End If
End Sub

その後、VBAエディターを終了します。
その後、すべての受信メールでこのマクロを自動実行するルールを作成します。

まず、「ファイル」メニューに移動します。
次に、「ルールとアラートの管理」ボタンをクリックします。
[ルールとアラート]ダイアログボックスで、[新しいルール]をクリックします。
「ルールウィザード」ダイアログボックスで、「受信したメッセージにルールを適用する」を選択し、「次へ」をクリックします。
次に、必要に応じてルール条件を設定し、「次へ」をクリックします。
「アクションの選択」ステップで、「スクリプトの実行」を選択し、「AutoExportAttachmentInfo」スクリプトを選択します。
最後に、画面上のウィザードに従ってルールの設定を完了します。

これ以降、新しい電子メールがメールボックスに到着するたびに、添付ファイルがある場合、Outlookは添付ファイル情報を事前定義されたExcelファイルに自動的にエクスポートします。

疑わしい添付ファイルをダウンロードしないでください

不明な送信者からの添付ファイルを含む電子メールを受信したことがありますか？通常、そのような添付ファイルはウイルスに感染している可能性があるため、容易に信頼しないことをお勧めします。それらをダウンロードする限り、Outlookデータが感染する可能性があります。その時点で、あなたはする必要があります Outlookを修正するファイル。あなたがそのような熟練した修理ツールに頼らない限り、それは確かに節度があります DataNumen Outlook Repair.

著者紹介：

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