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

展望解决方案 2025 年 9 月 29 日
立即分享：

您是否经常使用附件名称作为 Outlook 中的电子邮件主题？ 如果是这样，你一定希望Outlook能够自动完成。 本文将介绍一种使用 Outlook VBA 实现的简便方法。

许多用户习惯于在电子邮件主题行中手动键入附件名称。 在这种情况下，如果 Outlook 可以自动完成，那就方便多了。 此外，一些用户经常忘记填写主题行。 因此，当点击“发送”按钮时，他们将收到“无主题”警告消息。 在这种情况下，如果 Outlook 可以自动用附件名称填充主题，他们将能够避免烦人的“无主题”警告。 简而言之，相信很多Outlook用户都非常渴望有这样一种让Outlook自动将附件名称填入邮件主题行的方法。 幸运的是，借助于Outlook VBA，我们可以用utm来实现ost 舒适。 下面是详细的 VBA 代码和步骤。

使用附件名称自动填充电子邮件主题行

  1. 首先，你可以tart Outlook 并切换到“开发人员”选项卡。
  2. 然后在此选项卡下，单击“Visual Basic”按钮，这将显示 VBA 编辑器。
  3. 在接下来的窗口中，首先要在右侧的项目列表中找到“ThisOutlookSession”项目。
  4. 接下来双击打开这个项目。 然后将下面的代码复制进去。
Public WithEvents olInspectors As Outlook.Inspectors
Public WithEvents olMail As Outlook.MailItem

Private Sub Initialize_handlers()
    Set olInspectors = Application.Inspectors
End Sub

Private Sub olInspectors_NewInspector(ByVal Inspector As Inspector)
    Dim olItem As Object
    Set olItem = Inspector.CurrentItem
    If TypeName(olItem) = "MailItem" Then Set olMail = olItem
End Sub

Private Sub olMail_AttachmentAdd(ByVal Attachment As Attachment)
    If olMail.Subject = "" Then
      'If you don't want the prompt,
      'Just delete the Msgbox line and its corresponding "End if".
      If MsgBox("Do you want to use the attachment name as the subject", vbYesNo) = vbYes Then
         olMail.Subject = Attachment.DisplayName
      End If
    End If
End Sub

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

  1. 之后，您需要像往常一样继续为当前VBA 项目分配数字证书。
  • 首先，利用内置实用程序“VBA 项目数字证书”生成数字证书。
  • 随后，您可以签署当前宏。对当前宏进行数字签名
  1. 稍后退出 VBA 编辑器并将宏设置更改为“数字签名宏的通知，禁用所有其他宏”。
  2. 最后你可以试试看。
  • 创建一个新电子邮件。
  • 如果您没有填写主题并打算附加文件，您将收到一条消息，如下图所示：Outlook 消息框
  • 当您选择“是”时，主题将立即填写附件名称。用附件名称填写电子邮件主题

应对频繁的 Outlook 问题

只要你用了几十年的Outlook，你一定遇到过不少Outlook问题。 那么，你遇到他们一般会采取什么行动呢？ 建议尽快找出并铲除它们。 这是因为累积问题随时可能损坏您的 Outlook 数据。 因此，即使 Outlook 可以正常工作，您最好使用收件箱修复工具或外部 Outlook PST 错误修复实用程序， 喜欢 DataNumen Outlook Repair, 扫描您的 PST 文件以检测和解决错误。

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 修理损坏 SQL Server 数据库 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com

立即分享：

评论被关闭。