VBA Mailtext farbig hinterlegen

Sub Mail_Abmeldung()
Dim olApp As Object
Dim olOldBody As String
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.GetInspector.Display
olOldBody = .htmlBody
.To = Range("b1").Value
.CC = Range("c1").Value
.BCC = Range("a1").Value
.Subject = "Termin für Reparatur/Wartung/Gasabmeldung " & Range("c5").Value
.htmlBody = "Hallo Kollegen ,

" & _
"folgenden Motor bitte abmelden

" & _
"Anlagenname: " & Range("c5").Value & "

" & _
"Anlage: " & Range("c11").Value & "

" & _
Range("b12").Value & " " & Range("c12").Value & "

" & _
"Tätigkeit:  " & Range("c6").Value & "

" & _
"Startdatum: " & Range("g12").Value & " " & Range("g10").Value & "

" & _
"Enddatum:  " & Range("g13").Value & " " & Range("g11").Value & "

" & _
"

" & _
"

" & _
    Range("b13").Value & " " & Range("c13").Value & "

" & _
Range("b14").Value & " " & Range("c14").Value & "

" & _
olOldBody
End With
If MsgBox("Neue Meldung?", vbYesNo) = vbYes Then
'MsgBox "Ja"
Else
Range("c4:c10").ClearContents
ThisWorkbook.Close savechanges = False
End If
End Sub