Modification police Oulook VBA

Bonjour,

J'ai besoin de votre aide pour modifier la police dans le corps du message Outlook :

Je voudrai que : "Nous vous informons..." et "Cordialement" aient la même police que "Bonjour".

Cordialement.

Sub Mail_Outlook_With_Signature_Html()

    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String

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

    strbody = "</H3>Bonjour,</H3><br>" & _
              "</H3>Nous vous informons que la facture est disponible.<br><br>" & _
              "<br><br>Cordialement.</B>"

    On Error Resume Next

    With OutMail
        .Display
        .To = "xxxxx@xxxxxx.com"
        .CC = ""
        .BCC = ""
        .Subject = "facture "
        .HTMLBody = strbody & "<br>" & .HTMLBody
        .Display
    End With

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