如何在Outlook中获取所选邮件的附件信息列表？

Author: Siluvia Last Modified: 2025-05-07

对于带有附件的已接收邮件，有时您可能需要了解附件的详细信息，例如显示名称、文件名等。实际上，VBA代码可以帮助您轻松获取当前所选Outlook邮件中的附件信息列表。请浏览以下教程以获取更多详细信息。

获取Outlook中所选邮件的附件信息列表

Office Tab - 在 Microsoft Office 中启用标签页编辑和浏览，让工作变得轻松愉快。

阅读 Office Tab 的功能下载 Office Tab

立即解锁 Kutools for Outlook 的免费版本，永久享受超过 70 项功能的无限访问权限。

通过 AI 技术提升您的邮件处理效率，帮助您快速回复邮件、撰写新邮件、翻译消息等，更加高效地完成任务。
通过规则实现自动抄送密送、自动转发；无需 Exchange 服务器即可发送自动答复（外出）...
当您在密件抄送列表中回复所有人时，获得诸如答复的邮件为 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. 此时会弹出一个宏对话框，请单击“运行”按钮。

a Macros dialog box