如何在 Outlook 的邮件主题行中插入当前日期？

在完成收到邮件中提到的所有任务后，您可能希望为该邮件做个标记，就像为邮件添加一条笔记，提醒自己这封邮件已在某天处理完毕。实际上，您可以通过在邮件标题行的修改时间处插入当前日期，将邮件标记为已完成。想了解如何在邮件标题行插入当前日期的详细操作，请参阅以下教程。

直接输入方式在邮件标题行插入当前日期
复制粘贴方式在邮件标题行插入当前日期
使用 VBA 代码在邮件标题行插入当前日期
新建新建邮件时自动在主题行插入当前日期

---

直接输入方式在邮件标题行插入当前日期

您可以直接在主题栏中输入当前日期，即可插入当天日期。

1. 打开需要在主题行插入当前日期的邮件。

2. 将光标定位到“主题”栏，并输入当前日期。

3. 点击“保存”按钮，或按下“Ctrl + S”快捷键，即可保存您的更改。

---

---

复制粘贴方式在邮件标题行插入当前日期

您可以通过快捷键将当前日期或时间插入邮件正文，然后复制并粘贴到邮件标题行。请按照以下步骤操作。

1. 打开需要在主题行中插入当前日期的邮件。

2. 在邮件窗口中，请点击“操作”>“编辑邮件”于“移动”组下的“邮件”选项卡。见下图：

3. 点击邮件正文，同时在键盘上按下“Alt + Shift + D”。如需插入当前时间，请按“Alt + Shift + T”。

4. 按下快捷键后，当前日期将自动插入到邮件正文中。请将该日期复制，并粘贴到“主题”栏原有主题的前面。如下图所示：

5. 接着点击“保存”按钮，或按下“Ctrl + S”快捷键，即可保存更改。

---

使用 VBA 代码在邮件标题行插入当前日期

除了以上两种方法外，您还可以通过 VBA 代码，轻松实现在无需打开邮件的情况下，将当前日期插入邮件标题栏。

1. 选择一封需要在主题栏中插入当前日期的邮件。

2. 按下“Alt + F11”组合键，打开“Microsoft Visual Basic for Applications”窗口。

3. 在左侧窗格中，依次双击“Project 1” > “Microsoft Outlook Object” > “ThisOutlookSession”。如下图所示：

4. 请将以下 VBA 代码复制并粘贴到 VBA 编辑器中。

VBA：在邮件标题行插入当前日期

Sub SelectedMailItemsSubjectWithDate()
  Dim MItem As MailItem
  On Error GoTo ExitPos
  For Each MItem In ActiveExplorer.Selection
    MItem.Subject = Date & " " & MItem.Subject
  Next
ExitPos:
End Sub

5. 接着，点击“运行”按钮或按下“F5”键以执行 VBA 代码。完成后，关闭“Microsoft Visual Basic for Applications”。

6. 按下“Ctrl + S”即可保存邮件更改，此时，当前日期将被添加到您所选邮件的标题行中。

注意：此 VBA 代码已在 Outlook 2007、2010 和 2013 中成功通过测试。

---

新建新建邮件时自动在主题行插入当前日期

本部分将为您介绍如何使用 Kutools for Outlook 的“新建邮件时自动将日期添加到主题”功能，在新建邮件时自动在主题行插入当前日期。

1. 首先，请启用“新建邮件时自动将日期添加到主题”功能。点击“Kutools”>“选项”，如下图所示：

2. 在“选项”对话框中，切换至“新建”选项卡，勾选“新建邮件时自动将日期添加到主题”复选框，然后点击“确定”按钮。

注意：您可根据需求点击“日期格式”按钮，自定义日期或时间格式。

从现在起，在 Outlook 中新建邮件时，当前日期将会自动添加到主题行。