许多用户习惯于在撰写新电子邮件时将当前日期或时间插入到电子邮件主题或正文中。 本文将教您如何快速实现它。
在上一篇文章中——“如何将当前日期自动添加到 Outlook 电子邮件的主题中在“”这篇文章中，你可以学习如何自动将当前日期或时间添加到邮件主题。但那篇文章中的方法只是创建一个自定义邮件表单。因此，每次你想创建一封主题包含当前日期或时间的邮件时，都必须选择这个自定义表单，而不是像往常一样创建新邮件。显然，这会非常麻烦。
实际上，Outlook 已经为我们提供了一个本地字段来插入日期或时间。 此外，您可以应用 Outlook VBA 将当前日期或时间自动插入到新电子邮件的正文或主题中。 至于选择哪种方法，取决于您需要插入日期或时间的频率。
按“日期和时间”字段手动插入
- 首先，启动 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
- 随后，照常签署此代码。
- 稍后，重启 Outlook 以激活宏。
- 最后你可以试试看。
- 直接点击“新建邮件”按钮打开一封新邮件。
- 您会发现新邮件自动在主题和正文中包含当前日期或时间，如下图所示：
不要轻易相信未知电子邮件
您一定收到过垃圾邮件。 你通常如何与他们打交道？ 不建议下载此类邮件中的附件或打开链接，因为它们可能含有病毒。 一旦您的 Outlook 数据被感染，收件箱修复工具 Scanpst.exe 将不起作用。 在这种情况下，您别无选择，只能求助于更有经验的 PST修复 工具，例如 DataNumen Outlook Repair.
作者简介：
Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 已损坏 SQL Server 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com