VBA中HTMLbody中的样式问题

Question

我在使用 VBA 设置电子邮件正文时遇到问题。我需要使用不同的字体大小和颜色自定义电子邮件正文。因此我使用了 .HTMLBody 函数。 有一次，我已经执行了它工作正常的代码，但在 Outlook 显示中没有给出任何格式。 如果有人能就这个问题提供帮助，非常感谢。

VBA 代码：

 .HTMLBody = "Hi <strong>All</strong>" & "<br>" & "<br>" & _
                "Your task has already overdue! Please focus your kind attention here." & "<br>" & _
                "<br>" & _
                "<strong>" & "<span style=" & "color: rgb(41, 105, 176);" & ">" & "Task &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;" & "</span>" & "</strong>:" & "<span style=" & "color: rgb(184, 49, 47);" & ">" & "testing task testing task" & "</span> " & "<br>" & _
                "<span style=" & "color: rgb(41, 105, 176);" & ">" & "<strong>" & "Decision" & "</strong>" & "</span>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;:" & "<span style=" & "color: rgb(184, 49, 47);" & ">" & "Test action test action" & "</span>" & "<br>" & _
                "<span style=" & "color: rgb(41, 105, 176);" & ">" & "<strong>Due Date&nbsp;" & "</strong>" & "</span>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;:" & "<span style=" & "color: rgb(184, 49, 47);" & ">" & "21/1/2021" & "</span>" & "<br>" & _
                "<br>" & "<br>" & "<br>" & _
                "<span style=" & "font-size: 12px;" & ">" & "This is system generated email from Measure and Monitoring team." & "</span>" & "<br>" & _
                "<span style=" & "font-size: 12px;" & ">" & "If you already completed or any convenience regarding this e mail please reply here." & "</span>" & "<br>" & _
                "<span style=" & "font-size: 10px;" & ">" & "Generated Date : 1/1/2021" & "</span>" & _
                "<br>"

Answer 1

那是因为你错了一半。如果它不起作用，那么看看 VBA 将如何格式化它。一个错误： style=

后没有引号

自己测试一下：

Option Explicit
Sub test()
Dim HTMLBody As String

HTMLBody = "Hi <strong>All</strong>" & "<br>" & "<br>" & _
                "Your task has already overdue! Please focus your kind attention here." & "<br>" & _
                "<br>" & _
                "<strong>" & "<span style=" & "color: rgb(41, 105, 176);" & ">" & "Task &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;" & "</span>" & "</strong>:" & "<span style=" & "color: rgb(184, 49, 47);" & ">" & "testing task testing task" & "</span> " & "<br>" & _
                "<span style=" & "color: rgb(41, 105, 176);" & ">" & "<strong>" & "Decision" & "</strong>" & "</span>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;:" & "<span style=" & "color: rgb(184, 49, 47);" & ">" & "Test action test action" & "</span>" & "<br>" & _
                "<span style=" & "color: rgb(41, 105, 176);" & ">" & "<strong>Due Date&nbsp;" & "</strong>" & "</span>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;:" & "<span style=" & "color: rgb(184, 49, 47);" & ">" & "21/1/2021" & "</span>" & "<br>" & _
                "<br>" & "<br>" & "<br>" & _
                "<span style=" & "font-size: 12px;" & ">" & "This is system generated email from Measure and Monitoring team." & "</span>" & "<br>" & _
                "<span style=" & "font-size: 12px;" & ">" & "If you already completed or any convenience regarding this e mail please reply here." & "</span>" & "<br>" & _
                "<span style=" & "font-size: 10px;" & ">" & "Generated Date : 1/1/2021" & "</span>" & _
                "<br>" & vbCrLf
Debug.Print HTMLBody

End Sub