如何在 Outlook 编写邮件时，将所有附件的名称自动列入邮件正文中？
在 Outlook 编写邮件时，有哪些高效方法可以将所有附件名称插入到邮件正文？本文将为您介绍如何在 Outlook 中轻松实现这一功能。
使用 VBA 代码在编写邮件时将所有附件名称列入正文
请按照以下步骤完成此操作：
11. 按住 ALT + F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。
22. 在 Microsoft Visual Basic for Applications 窗口中，双击 Project 1(VbaProject.OTM) 窗格中的 ThisOutlookSession 以进入编辑模式，然后将以下代码复制并粘贴到空白模块中。
VBA 代码：将所有附件名称列入正文：
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim xMailItem As MailItem
If Item.Class = olMail Then
Set xMailItem = Item
If xMailItem.Attachments.Count > 0 Then
AddAttachmentNamesToBody
End If
End If
End Sub
33. 然后继续点击插入> 模块，将如下代码复制粘贴到新建空白模块中，见下图：
VBA 代码：将所有附件名称列入正文：
Public Sub AddAttachmentNamesToBody()
Dim xMailItem As MailItem
Dim xAttachment As Attachment
Dim xFileName As String
Dim xInspector As Outlook.Inspector
Dim xDoc As Word.Document
Dim xWdSelection As Word.Selection
On Error Resume Next
Set xMailItem = Outlook.ActiveInspector.CurrentItem
If xMailItem.Attachments.Count = 0 Then
Exit Sub
End If
xFileName = ""
For Each xAttachment In xMailItem.Attachments
If xFileName = "" Then
xFileName = " <" & xAttachment.FileName & "> "
Else
xFileName = xFileName & vbCrLf & " <" & xAttachment.FileName & "> "
End If
Next xAttachment
Set xInspector = Outlook.Application.ActiveInspector()
Set xDoc = xInspector.WordEditor
Set xWdSelection = xDoc.Application.Selection
xWdSelection.HomeKey Unit:=wdStory
xWdSelection.InsertBefore "Attachments: " & vbCrLf & xFileName & vbCrLf & vbCrLf
Set xMailItem = Nothing
End Sub
44. 然后点击工具> 引用 在 Microsoft Visual Basic for Applications 窗口，弹出的 References-Project 1 对话框中，勾选 Microsoft Word 对象库项位于可用引用列表框中，参见截图：
 |  |  |
55. 单击确定即可关闭对话框，并将宏按钮添加到快速访问工具栏。在新建邮件窗口中，点击自定义快速访问工具栏下拉菜单中的更多命令，见截图：
66. 在 Outlook 选项对话框中，按如下操作：
（1.） 在宏下拉列表的命令选择中选择；
（2.） 单击刚才插入的宏名称；
（3.）然后点击添加按钮，即可将宏添加到自定义快速访问工具栏中。
77. 然后点击确定以关闭对话框，现在，宏按钮已插入到快速访问工具栏，参见下图：
8 现在，当您新建邮件并点击宏按钮时，附件名称就会像下面截图所示，插入到邮件正文上方：
用简单功能在编写邮件时将所有附件名称列入正文
如果您觉得上述代码操作起来较为复杂，拥有 Kutools for Outlook 并结合其拷贝名称功能，即可快速复制邮件附件名称并粘贴到所需位置。
安装 Kutools for Outlook 后，请按如下步骤操作：
1 第一步，请先创建所需的新建邮件，然后单击 Kutools> 拷贝名称，在新建邮件窗口中，见截图：
2 随后会弹出提示框提醒您，附件名称已复制到剪贴板，见截图：
3 现在，只需按下 Ctrl + V 键，即可将附件名称粘贴至需要的邮件正文中，见截图：
更多相关文章：
- 带原始附件全部答复在 Outlook 中
- 通常在 Outlook 中使用“全部回复”功能回复所有收件人时，原始附件会自动丢失。那么，在 Outlook 中全部回复时，是否可以保留原始附件呢？
- 将附件从 Outlook 下载/保存到指定文件夹
- 一般情况下，您可以在 Outlook 中点击“附件 > 全部保存附件”来保存某封邮件的所有附件。但如果您想将所有收到的邮件及其附件批量保存到本地，有什么高效的方法吗？本文将为您介绍两种实用方法，助您自动将 Outlook 中的所有附件下载到指定文件夹。
- 更改 Outlook 中的默认附件保存区域
- 是否每次启动 Outlook 都要反复查找之前设定的附件保存位置，让您感到困扰？本教程将教您如何更改默认的附件保存路径。设置完成后，无论重启 Outlook 多少次，系统都会自动打开您指定的附件保存文件夹，让附件管理更加便捷高效。
- 在 Outlook 中从邮件中删除所有附件
- 通常，在预览邮件时，您只需右键点击附件并选择“删除附件”即可将其移除。但当一封邮件包含多个附件时，逐个删除会显得非常繁琐。本文将为您介绍两种便捷方法，帮助您一次性删除单封邮件中的所有附件，或在 Outlook 中批量删除多封邮件的全部附件。
最佳办公效率工具
体验全新 Kutools for Outlook，畅享 100+ 强大功能！立即点击下载，不容错过！
🤖KUTOOLS AI：采用先进 AI 技术，轻松处理邮件，涵盖回复、摘要、优化、扩展、翻译及撰写等功能。
📧 邮件自动化：自动答复（支持 POP 和 IMAP）/定时发送邮件/发送邮件时按规则自动抄送密送/自动转发（高级规则）/自动添加称呼/自动将多收件人邮件拆分为单独信息……
📨 邮件管理：撤回邮件/按主题等条件拦截诈骗邮件/删除重复邮件/高级搜索/整合文件夹……
📁 附件增强：批量保存/批量分离/批量压缩/自动保存/自动拆离/自动压缩……
🌟 界面魔法：😊更多美观时尚表情/重要邮件到达时提醒您/最小化 Outlook 而不是直接关闭……
👍 一键精彩功能：带附件全部答复/反钓鱼邮件/🕘显示发送者当前时间时区……
👩🏼🤝👩🏻 联系人与日历：批量从选定邮件中提取添加联系人/将联系人组拆分为个人组/移除生日提醒……
在您的首选语言中畅享 Kutools —— 支持英语、西班牙语、德语、法语、中文等 40 多种语言！
一键解锁 Kutools for Outlook，告别等待，立即下载，让效率倍增！
🚀 一键下载 — 即可获取全部 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