我想创建一个简单的脚本来创建一个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,
End With
End Sub
2017-05-09
Jonathan