邮件中html格式转换,如何在宏中将邮件格式更改为html？

使用Outlook宏从Plain Text更改回复邮件格式时的行为与使用格式文本/格式/ HTML菜单时不同。如何在宏中将邮件格式更改为html？

我最初的外发邮件，击中回复按钮看起来刚过如下：

如果我再点击HTML按钮，然后它仍然exactly same，除了改变格式的HTML之后我可以改变字体，大小等

但是，如果我使用...BodyFormat = olFormatHTML代替改变格式在宏(见底部完整代码)然后

领先的空行被删除

邮件标题被删除

字体更改Times New Roman 10

是否有一种方式来获得从宏观的UI行为？在更改格式之前是否需要删除文本，然后重新插入它？怎么样？

宏体如下：

Sub ChangeToTextStyle()

Dim objItem As Object

Dim objMail As MailItem

On Error Resume Next

Set objItem = Application.ActiveInspector.CurrentItem

If Not objItem Is Nothing Then

If objItem.Class = olMail Then

Set objMail = objItem

objMail.BodyFormat = olFormatHTML

End If

End If

End Sub

UPDATE 以下后

小问题尤金的answer：

插入objMail.Save之前改变所述格式保留的报头和空白但字体更改为Times New Roman而不是Luci DA控制台，这是我在编写和阅读纯文本邮件的选项中设置的。原文显示在10pt，光标在12pt。我如何 - 更改字体为Lucida Console 9.5pt邮件中的所有文本？ - 将光标处的颜色更改为wdDarkRed？