KutoolsforOffice — 一套方案，五大工具。事半功倍。

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

作者Siluvia修改日期

对于收到带有附件的邮件，您有时可能需要了解附件的详细信息，如显示名称、文件名等。实际上，利用 VBA 代码，您可以轻松获取当前选中邮件中所有附件的信息列表。请参考以下教程，了解具体操作步骤。

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

Office Tab - 让 Microsoft Office 支持标签式编辑和浏览，工作轻松无忧
立即解锁 Kutools for Outlook，畅享 100 多项功能，永久不限次数使用
通过这些高级功能提升您的 Outlook 2024 - 2010 或 Outlook 365. 尽享 100+ 项强大功能，让您的邮箱体验全面升级！

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

1. 请选择包含附件的邮件，以获取附件信息。

2. 按下 Alt+F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。

3. 然后双击 Project 1 > Microsoft Outlook Object > ThisOutlookSession，即可打开 Project 1 – ThisOutlookSession 窗口。如图所示：

Project1 – ThisOutlookSession 窗口

4. 接下来，将以下 VBA 代码复制并粘贴到 Project 1 – 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. 此时会弹出宏对话框，请点击运行按钮。

宏对话框

7. 在宏对话框中点击运行按钮后，将自动创建一封新邮件，所有所选邮件的附件信息会列在邮件正文中。如图所示：

新建的邮件窗口中，所选邮件的所有附件信息已显示在邮件正文内

注意：此 VBA 代码适用于 Outlook 2007、2010 和 2013

最佳办公效率工具

体验全新 Kutools for Outlook，畅享 100+ 强大功能！立即点击下载，不容错过！

🤖KUTOOLS AI：采用先进 AI 技术，轻松处理邮件，涵盖回复、摘要、优化、扩展、翻译及撰写等功能。

📧 邮件自动化：自动答复（支持 POP 和 IMAP）/定时发送邮件/发送邮件时按规则自动抄送密送/自动转发（高级规则）/自动添加称呼/自动将多收件人邮件拆分为单独信息……

📨 邮件管理：撤回邮件/按主题等条件拦截诈骗邮件/删除重复邮件/高级搜索/整合文件夹……

📁 附件增强：批量保存/批量分离/批量压缩/自动保存/自动拆离/自动压缩……

🌟 界面魔法：😊更多美观时尚表情/重要邮件到达时提醒您/最小化 Outlook 而不是直接关闭……

👍 一键精彩功能：带附件全部答复/反钓鱼邮件/🕘显示发送者当前时间时区……

👩🏼‍🤝‍👩🏻 联系人与日历：批量从选定邮件中提取添加联系人/将联系人组拆分为个人组/移除生日提醒……

在您的首选语言中畅享 Kutools —— 支持英语、西班牙语、德语、法语、中文等 40 多种语言！

一键解锁 Kutools for Outlook，告别等待，立即下载，让效率倍增！

kutools for outlook features1kutools for outlook features2

🚀 一键下载 — 即可获取全部 Office 加载项

强烈推荐：Kutools for Office（5 合 1）

一键下载五个安装包，即可同时获得 Kutools for Excel、Outlook、Word、PowerPoint 和 Office Tab Pro。立即点击下载！

  • ✅ 一键便捷：只需一次操作，即可下载全部五个安装包。
  • 🚀 轻松应对各类 Office 任务：随时按需安装所需插件，助您高效办公，不容错过！
  • 🧰 包含：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint