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

如何在 Outlook 中自动将附件名称填充为邮件主题？

作者Siluvia修改日期

对于习惯在 Outlook 邮件主题中使用附件名称的用户来说，每次手动输入附件名称到主题行确实非常耗时。如下面的动图所示，如果您希望在插入附件时，邮件主题能够自动填充为附件名称，本教程中的 VBA 方法将为您轻松实现这一需求。

使用 VBA 代码附件名称自动填充邮件标题

请运行以下 VBA 代码，在 Outlook 中自动将插入附件的文件名填入邮件主题。

1. 启动 Outlook，按下 Alt+F11 组合键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，双击 Project 1 (VbProject.OTM) > Microsoft Outlook Objects > ThisOutlookSession，即可打开 ThisOutlookSession（代码）编辑器。

3. 然后将以下 VBA 代码复制到 ThisOutlookSession（代码）编辑器中即可。

VBA 代码：用附件名称自动填充邮件标题

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220926
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem

Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
  Set GInspectors = Application.Inspectors
End Sub

Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GMail = Item
End Sub

Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
  Dim xItem As Object
  Set xItem = Inspector.CurrentItem
  If xItem.Class <> olMail Then Exit Sub
  Set GMail = xItem
End Sub

Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
  Dim xFileName As String
  On Error Resume Next
  If VBA.Trim(GMail.Subject) <> "" Then Exit Sub
  If MsgBox("Do you want to use the attachment name as the subject?", vbYesNo + vbInformation, "Kutools for Outlook") = vbNo Then Exit Sub
  xFileName = Att.DisplayName
  xFileName = Left$(xFileName, VBA.InStrRev(xFileName, ".") - 1)
  GMail.Subject = xFileName
End Sub

doc-自动填充主题行-使用附件名称-2

4. 此时请保存代码并重新启动 Outlook。

5. 从现在起，当您在尚未填写主题的邮件中插入附件时，Kutools for Outlook 会弹出对话框，询问是否将附件名称作为主题，请单击是按钮。

doc-自动填充主题行-使用附件名称-3

随后，主题行将会自动填充为所插入附件的名称。

doc-自动填充主题行-使用附件名称-4

注意：

1）如果已经填写了主题，插入附件时不会弹出对话框。
2）如果您已从当前邮件中删除主题，但光标仍停留在主题行内，插入附件时同样不会弹出对话框。移除主题后，需将光标移出主题行以刷新消息框，代码才能生效。
3）如果同时插入多个附件，则只有第一个附件的名称可用作邮件主题。

Outlook AI 邮件助手：智能回复，沟通更高效清晰（只需一键，轻松体验神奇效果！）

通过 Kutools for Outlook 的 AI 邮件助手，轻松提升您的日常 Outlook 工作效率。该强大工具能够智能学习您的邮件习惯，提供高效、精准的回复建议，优化邮件内容，助您轻松起草和润色邮件。
AI 邮件处理

该功能支持：

  • 智能回复：根据您的历史对话内容生成个性化且精准的回复，随时为您所用。
  • 内容优化：自动完善您的邮件文本，让表达更加清晰且更具影响力。
  • 轻松写作：您只需输入关键词，剩下的交给 AI，多种润色风格随心选择。
  • 智能扩展：结合上下文，智能拓展您的想法，提供精准建议。
  • 智能摘要：轻松为冗长邮件快速生成简明概览，让信息一目了然。
  • 全球畅邮：轻松将邮件翻译为任意语言。

该功能支持：

  • 智能邮件回复
  • 内容优化
  • 关键词草稿
  • 智能内容扩展
  • 邮件摘要
  • 多语言翻译

立即行动——现在就下载 AI 邮件助手，畅享高效体验，不容错过！

最佳办公效率工具

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

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

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

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

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

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

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

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

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

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

kutools for outlook 功能1kutools for outlook 功能2

🚀 一键下载 — 即可获取全部 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