Запланированная и повторяющаяся электронная почта с использованием шаблона

Question

Мой макрос работает, но электронная почта не из моего сохраненного шаблона.

Private Sub Application_Reminder(ByVal Item As Object)
  Dim objMsg As MailItem
  Set objMsg = Application.CreateItemFromTemplate("C:\Users\oanderson\AppData\Roaming\Microsoft\Templates\Test template.oft")

  If Item.MessageClass <> "IPM.Appointment" Then
    Exit Sub
  End If

  If Item.Categories <> "Automated Email Sender" Then
    Exit Sub
  End If

  objMsg.To = Item.Location
  objMsg.Subject = Item.Subject
  objMsg.Body = Item.Body
  objMsg.Send

  Set objMsg = Nothing
End Sub