在html VBA Excel中更改字体颜色

oxf4rvwz  于 2022-12-14  发布在  其他
关注(0)|答案(1)|浏览(160)

即使我试了所有的方法,似乎也不能改变颜色。

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 现在电子邮件中,就像它是一个字符串!

irtuqstp

irtuqstp1#

我假设你正在创建一个电子邮件,那么你可能在代码中定义了一个Dim objMail As Outlook.MailItem。也许这就是你实际上要做的:

For Each emailAdress In emailInformation
        Set colLines = emailInformation(emailAdress)
        sBodyInfo = ""
        For Each line In colLines
            sBodyInfo = sBodyInfo & _
                          "Appareil : " & line.appareil & vbCrLf & _
                          "<p style=""color:#FF0000"">Site : " & line.site & "</p>"

然后设置objMail对象的.HTMLBody属性,而不仅仅是.Body
希望这对你有帮助

相关问题