如何在 Outlook 中選取的郵件中獲取附件資訊清單？

Author: Siluvia Last Modified: 2025-08-06

對於帶有附件的已接收郵件，有時您可能需要了解附件的詳細信息，例如顯示名稱、檔案名稱等。實際上，VBA 代碼可以幫助您輕鬆獲取 Outlook 中當前選取郵件的附件資訊清單。請瀏覽以下教程以獲取更多詳細信息。

在 Outlook 選取的郵件中獲取附件資訊清單

Office Tab - 在 Microsoft Office 中啟用分頁編輯和瀏覽功能，讓工作變得輕鬆愉快

閱讀 Office Tab 的功能下載 Office Tab

立即解鎖 Kutools for Outlook，享受超過 100 種功能的無限存取權限

透過 AI 技術提升您的電子郵件生產力，讓您快速回覆郵件、起草新郵件、翻譯郵件等，更有效率地進行操作。
透過規則自動化電子郵件處理，例如自動抄送密送、自動轉發；在不需要交換伺服器的情況下發送自動回覆（外出）...
當您處於密件抄送列表時，回覆所有人會收到類似密件抄送提示的提醒，並在忘記附件時獲得遺漏附件提醒...
透過帶有附件的回覆（全部）、自動新增問候語或日期時間至簽名或主題、回覆多封郵件等功能提高郵件效率...
透過撤回郵件、附件工具（壓縮全部、自動保存全部...）、刪除重複郵件以及快速報告等功能簡化郵件處理流程...

透過這些高級功能增強您的 Outlook 2024 - 2010 或 Outlook 365。享受 100 多種強大功能，提升您的郵件體驗！

閱讀 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. 現在會彈出一個巨集對話框，請點擊執行按鈕。

a Macros dialog box