Отправить Outlook письмо с текстом, выделенным жирным шрифтом - PullRequest
Новая
       8

Отправить Outlook письмо с текстом, выделенным жирным шрифтом

0 голосов
/ 02 октября 2019

У меня есть код, который открывает электронное письмо Outlook с содержимым тела письма, но ни один из форматов не работает.

В письме оно просто отображается в виде строки. Например:

<strong>Bold this part</strong>Unbold this text <b>This text bold</b>Test

Я искал ответы здесь, но ни один из них не работает.

Вот мой код: 

Sub Send_email()
Dim OutApp As Object
Dim OutMail As Object
Dim MailBody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

MailBody = "First line of email" & vbNewLine & vbNewLine & _
          "<strong>Bold this part</strong>" & "Unbold this text" & vbNewLine & _
           "<b>This text bold</b>" & "Test"

On Error Resume Next
With OutMail
    .To = ""
    .CC = ""
    .BCC = ""
    .Subject = "Email Subject"
    .Body = MailBody
    .Display   'or use .Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing

End Sub
...