Note: The other languages of the website are Google-translated. Back to English

如何在 Outlook 中使用附件名称自动填写电子邮件主题?

对于习惯在 Outlook 中使用附件名称作为电子邮件主题的人来说,每次在主题行中手动输入附件名称会非常耗时。 如下图所示,如果您想在插入附件时自动用附件名称填充电子邮件主题行,本教程中的 VBA 方法将有所帮助。


使用 VBA 代码使用附件名称自动填充电子邮件主题

请运行以下 VBA 代码以在 Outlook 中使用插入的附件名称自动填充电子邮件主题。

1.启动Outlook,按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2。 在里面 Microsoft Visual Basic应用程序 窗口,双击 项目 1 (VbProject.OTM) > Microsoft Outlook对象 > 本次展望会议 打开 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

4. 现在您需要保存代码并重新启动 Outlook。

5. 从现在开始,当您在尚未填写主题的电子邮件中插入附件时, Kutools 展望 将弹出对话框询问您是否要使用附件名称作为主题,单击 按钮。

然后主题行将自动填充插入附件的名称。

说明:

1)如果您已经填写了主题,插入附件不会弹出对话框。
2) 如果您从当前电子邮件中删除了现有主题,但光标仍显示在主题行中,插入附件也不会弹出对话框。 删除主题后,您需要单击离开主题行以刷新消息框以使代码正常工作。
3) 如果同时插入多个附件,则只能以第一个附件的名称作为邮件主题。

Kutools for Outlook-为Outlook带来100个高级功能,并使工作更加轻松!

  • 自动CC / BCC 根据规则发送电子邮件; 自动转发 自定义多封电子邮件; 自动回复 没有交换服务器,还有更多自动功能...
  • BCC警告 -当您尝试全部答复时显示消息 如果您的邮件地址在“密件抄送”列表中; 缺少附件时提醒,还有更多提醒功能...
  • 在邮件对话中回复(全部)带有所有附件; 回复许多电子邮件 很快; 自动添加问候语 回复时将日期添加到主题中...
  • 附件工具:管理所有邮件中的所有附件, 自动分离, 全部压缩,全部重命名,全部保存...快速报告, 计算选定的邮件...
  • 强大的垃圾邮件 习俗 删除重复的邮件和联系人... 使您能够在Outlook中做得更聪明,更快和更好。
拍摄kutools前景kutools选项卡1180x121
拍摄kutools前景kutools加标签1180x121
 
按评论排序
注释 (2)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
Добрый день。 Подсказите пожалуйста можно ли сделать что бы тема формировалась из 2 и более файлов с разделение И? Может в данном коде дописать или вообще другой существует? Заранее спасибо
该评论由网站上的主持人最小化
嗨 Александр,

您的意思是添加多个附件,同时将这些附件名称同时添加到主题,然后将它们与 AND 链接?
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点

关注我们

版权所有 © 2009 - extendoffice.com。 | 版权所有。 供电 ExtendOffice。 | 网站地图
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家的商标或注册商标。
受Sectigo SSL保护