Outlook中HTML格式的计划和定期电子邮件

Question

我正在使用根据答案得出的建议（https://superuser.com/questions/635094/）。一切似乎正常，并且消息已发送。但是，我的信息有问题。我体内有图像和文本格式。当前发送的消息被格式化为仅文本模式。有没有办法使它成为HTML格式，所以它将与我的约会相同？

    Private Sub Application_Reminder(ByVal Item As Object)
  Dim objMsg As MailItem
  Set objMsg = Application.CreateItem(olMailItem)

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

Answer 1

.Body是文本正文。如果要复制HTML正文，请尝试：

objMsg.HtmlBody = Item.HtmlBody