即使我试了所有的方法,似乎也不能改变颜色。
For Each emailAdress In emailInformation
Set colLines = emailInformation(emailAdress)
sBodyInfo = ""
For Each line In colLines
sBodyInfo = sBodyInfo & _
"Appareil : " & line.appareil & vbCrLf & _
"Site : " & line.site & vbCrLf & _
我只想将“SITE”颜色改为红色。
每次我尝试一些东西,它显示的标 checkout 现在电子邮件中,就像它是一个字符串!
1条答案
按热度按时间irtuqstp1#
我假设你正在创建一个电子邮件,那么你可能在代码中定义了一个
Dim objMail As Outlook.MailItem
。也许这就是你实际上要做的:然后设置
objMail
对象的.HTMLBody
属性,而不仅仅是.Body
。希望这对你有帮助