打开已保存的电子邮件模板时添加今天的日期

Question

我想在打开已保存的电子邮件模板时添加一条消息和日期。

我只能设法得到下面的代码：

Private Sub adddate()
    .Item.Subject = "Prep Status Report " & Format(Date, "dd/MM/yyyy")
End Sub

我该如何改进它以使其按预期工作。

主题行应为：Prep Status Report 10/12/2018如果在 12 月 10 日运行

Answer 1

您可以将代码行插入到“使用 Outlook VBA 从模板创建新电子邮件的 2 种快速方法”中的方法 2 的代码中https://www.datanumen.com/blogs/2-quick-methods-create-new-emails-template-outlook-vba/

• 在您的代码行中，更改.Item为NewMail。
• 在 Datanumen 的代码中，将文件路径更改为模板的文件路径。

此外，如果您想一键运行宏，您可以将宏添加到快速访问工具栏。