打開已儲存的電子郵件範本時新增今天的日期

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

您可以將程式碼行插入「2 QuickMethods to Create New Emails from a Template with Outlook VBA」中方法 2 的程式碼中，網址為：https://www.datanumen.com/blogs/2-quick-methods-create-new-emails-template-outlook-vba/

• 在您的程式碼行中，更改.Item為NewMail.
• 在 Datanumen 的程式碼中，將檔案路徑變更為範本的檔案路徑。

此外，如果您想一鍵運行宏，您可以將宏新增至快速存取工具列。