更改字体并添加项目符号

【问题标题】：Change font and add bullets更改字体并添加项目符号
【发布时间】：2018-11-21 09:03:43
【问题描述】：

如何将脚本从 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

【问题讨论】：

标签： html excel vba outlook

【解决方案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

【讨论】：