如何使用 Outlook VBA 将当前日期或时间自动插入到电子邮件主题或正文中

展望解决方案 2025 年 9 月 29 日

许多用户习惯于在撰写新电子邮件时将当前日期或时间插入到电子邮件主题或正文中。本文将教您如何快速实现它。

在上一页ost - “如何将当前日期自动添加到 Outlook 电子邮件的主题中”，您可以了解如何将当前日期或时间自动添加到主题。但是那个p里面的方法ost 只是创建自定义形式的消息。因此，通过这种方式，每次您想要创建主题为当前日期或时间的新电子邮件时，您都必须选择自定义表单，而不是像往常一样创建新电子邮件。显然，这会相当麻烦。

实际上，Outlook 已经为我们提供了一个本地字段来插入日期或时间。此外，您可以应用 Outlook VBA 将当前日期或时间自动插入到新电子邮件的正文或主题中。至于选择哪种方法，取决于您需要插入日期或时间的频率。

按“日期和时间”字段手动插入

到tart，启动 Outlook。
然后通过单击“主页”选项卡下“新建”组中的“新建电子邮件”按钮来创建新邮件。
随后，在新消息窗口中，您可以单击电子邮件正文并转到“插入”选项卡。
接下来，您可以找到并单击“文本”组中的“日期和时间”字段。
之后，将出现一个新的对话框。您可以选择一种可用的格式，然后单击“确定”按钮。
返回消息窗口后，您可以在邮件正文中看到当前日期或时间。默认情况下，Outlook 不允许您将“日期和时间”字段应用于主题。
因此，最后，如果您想在主题中插入日期或时间，您必须从正文中复制它们并手动将它们粘贴到主题中。

如果您很少需要插入当前日期或时间，则更推荐使用此方法。但如果你经常或经常需要插入，最好使用下面的VBA代码自动实现。

使用 Outlook VBA 自动插入

首先，按“Alt + F11”键按钮访问 VBA 编辑器。
然后双击左侧的“ThisOutlookSession”项目将其打开。
接下来将以下代码复制到其中。

Public WithEvents objInspectors As Inspectors
Public WithEvents objMail As MailItem

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

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

Private Sub objMail_Open(Cancel As Boolean)
    Dim strTime As String
 
    'the current time
    strTime = Now
 
    'insert to subject
    'If you don't want to insert to subject, remove the following line
    objMail.Subject = strTime
    'insert to body
    'If you don't want to insert to body, remove the following line
    objMail.Body = strTime & objMail.Body
End Sub

请注意： 上面的代码将用于自动将当前时间插入主题和正文。如果要插入当前日期，请将“objMail_打开” 包含以下内容：

Private Sub objMail_Open(Cancel As Boolean)
    Dim strDate As String
 
    'the current date
    strDate = Date
 
    'insert to subject
    objMail.Subject = strDate
    'insert to body
    objMail.Body = strDate & objMail.Body
End Sub

随后，照常签署此代码。
后来，再tart Outlook 激活宏。
最后你可以试试看。

直接点击“新建邮件”按钮打开一封新邮件。
您会发现新邮件自动在主题和正文中包含当前日期或时间，如下图所示：

不要轻易相信未知电子邮件

您一定收到过垃圾邮件。你通常如何与他们打交道？不建议下载此类邮件中的附件或打开链接，因为它们可能含有病毒。一旦您的 Outlook 数据被感染，收件箱修复工具 Scanpst.exe 将不起作用。在这种情况下，您别无选择，只能求助于更有经验的 PST修复工具，例如 DataNumen Outlook Repair.

作者简介：

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