Изменить шрифт и добавить маркеры

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> метка может переключиться на следующую строку.

Это мой результат:

Ссылка от:

Отправка html-письма из почтовой программы VBA