我想创建一个简单的脚本来创建一个HTML消息，并且我想保留尽可能多的默认值。当创建一个新的HTML电子邮件时保持默认的Outlook格式

在我的情况下，当我使用Home创建一个新邮件->新邮件时，它总是会创建一个默认字体[Calibri 11']，格式文本Html和签名的邮件。

如果我使用功能Application.CreateItem(olMailItem)它创建邮件没有问题。

但是，只要我声明一个带有.HTMLBody的html主体，它将覆盖格式：font [Times New Roman 12']，也没有签名。

更奇怪的：如果我用网上发现，以保持签名“特技”(见代码波纹管)，则字体会再改写为[宋体10' (一个点波纹管默认)

任何建议/解释？

简单的脚本来创建一个HTML电子邮件(字体的变化+无签字)：

Sub TestMessage1()

Dim objMsg As MailItem

Set objMsg = Application.CreateItem(olMailItem)

With objMsg

.To = "[email protected]"

.Subject = "test Mail"

.HTMLBody = "

Hello,
Could you please review this program
Regards,

"

.Display

End With

End Sub

写HTML邮件有签名(不同字体的变化)：

Sub TestMessage2()

Dim objMsg As MailItem

Set objMsg = Application.CreateItem(olMailItem)

With objMsg

.To = "[email protected]"

.Subject = "test Mail"

.Display

.HTMLBody = "

Hello,
Could you please review this program
Regards,

" & objMsg.HTMLBody

End With

End Sub

2017-05-09

Jonathan