更改字体并添加项目符号

Question

如何将脚本从Mail_Object转换为HTML，以便可以将第3行和第4行正确设置为项目符号，然后在第5行更改字体？

我对HTML一无所知。

下面的代码运行，但不进行任何格式设置或项目符号指示。

Sub Sample_Auto_Generated_Email_Final()

    Set Mail_Object = CreateObject("Outlook.Application")
    With Mail_Object.CreateItem(o)
        .Subject = "Report"
        .To = "XX@Xx.com"
        .Body = MAR_Message_5()
        .Send
    End With
End Sub



Function MAR_Message_5() As String
    MAR_Message_5 = "Line1" & vbNewLine & _
    "Line 2" & vbNewLine & _
    "     •  Line3" & _
    "     •  Line4" & vbNewLine & _
    Chr(10) & _
    "Line 5" <-- I want this line to be Calabri 6 point font.
End Function

Answer 1

我测试了您的代码，请将您的代码更改为以下代码：

Sub Sample_Auto_Generated_Email_Final()

Set Mail_Object = CreateObject("Outlook.Application")
    With Mail_Object.CreateItem(o)
        .Subject = "Report"
        .To = "XX@Xx.com"
        .HTMLBody = MAR_Message_5()
        .Send
    End With
End Sub



Function MAR_Message_5() As String

    MAR_Message_5 = "<span>Line1132323213123" & vbNewLine & "</span><br>"
    MAR_Message_5 = MAR_Message_5 & "<span>Line2132323213123" & vbNewLine & "</span><br>"
    MAR_Message_5 = MAR_Message_5 & "<span>????Line3132323213123" & vbNewLine & "</span><br>"
    MAR_Message_5 = MAR_Message_5 & "<span>????Line4132323213123" & vbNewLine & "</span><br>"
    MAR_Message_5 = MAR_Message_5 & "<span>........Line5132323213123" & vbNewLine & "</span>"

End Function

<br>标签可以切换到下一行。

这是我的结果：

引用来自：

Sending html email from VBA email program