如何將傳入 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