テンプレートに自動で今日の日付を設定するマクロ

定期的に送信するようなメールで、日付だけ変えたいという場合があります。そういう場合のためにマクロを作ってみました。
このマクロは TEMPLATE_FILE で指定したファイル (下記の例では c:\temp\test.otf) をテンプレートとして開き、件名と本文に含まれる yyyy/mm/dd という文字列をマクロを実行した日付に置き換えます。

Public Sub OpenTemplateWithDate()
    Const TEMPLATE_FILE = "c:\temp\test.oft"
    Dim objItem As MailItem
    Dim dtShort
    dtShort = FormatDateTime(Now, vbShortDate)
    Set objItem = Application.CreateItemFromTemplate(TEMPLATE_FILE)
    objItem.Subject = Replace(objItem.Subject, "yyyy/mm/dd", dtShort)
    objItem.Body = Replace(objItem.Body, "yyyy/mm/dd", dtShort)
    objItem.Display
End Sub

マクロの登録方法やメニューへの追加について