Opmaak verandering excel naar outlook

[matthijsdekker]

Hallo allemaal,

Vanuit excel ben ik bezig om emails te versturen. Nu is het volgende aan de hand.
Me tekst staat in een cel die tekst zet ik via een macro in een mail bericht. De tekst bestaat uit variabelen welke via de code <br> naar een volgende regel worden gebracht.

Alleen de opmaak van me tekst veranderd in me mail bericht. De aanhef is anders dan me bericht en dat is ook weer anders dan me handtekening.
Hoe kan ik alle opmaak gewoon hetzelfde krijgen?

Bedankt!

mijn macro tot zo ver

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A2:A500")) Is Nothing Then
    onderwerp = Target.Offset(, 15).Value
    bericht = Target.Offset(, 16).Value
    mail = Target.Offset(, 5).Value

    
    Dim OutApp As Object
    Dim OutMail As Object
    Dim htmlbody As String


    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)


    On Error Resume Next

    With OutMail
        .Display
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = onderwerp
        .htmlbody = bericht & .htmlbody
        .Display
    End With

    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
    End If
End Sub