VBA修改OUTLOOK2010正文字体类型的问题

HenryLin8

我找了半天没找到设置MailItem.body字体的对象，请问哪位高手知道怎么设？非常感谢！
Dim olk As Object
Set olk = CreateObject("Outlook.Application")
Dim newmail As Object
Set newmail = olk.CreateItem(olMailItem)
With newmail
.body="我想改远东字体类型"
.Display
'.body.Selection
'Selection.Font.NameFarEast = taget_font
End With

闻启学

这个或者用html 代码设置

邮件正本就是html 来的

HenryLin8

闻启学 发表于 2013-12-26 09:43
这个或者用html 代码设置

邮件正本就是html 来的

Dim olk As Object
Set olk = CreateObject("Outlook.Application")
Dim newmail As Object
Set newmail = olk.CreateItem(olMailItem)
With newmail
.Display
.HTMLBody = "<font face= 幼圆 >" + .body + "</font>"
End With
谢谢提点，我加了句代码，确实能改变字体。
但是，当事先把别的文体复制到.body后用HTMLBoby的话，原来文本的格式全没了。
不知道还有没有别的方法只修改字体？