Police dans corps de message Outlook VBA

Bonjour au forum,

Je voudrais savoir comment modifier dans cette macro, la police dans ce corps de message Outlook.

"Bonjour" et "Cordialement" ne soit pas en GRAS, et augmenter la police "Nous vous informons...".

Éventuellement mettre un saut de ligne entre "Nous" et "Lien".

Merci de votre aide.

Sub Mail_Outlook_With_Signature_Html_1()
' Working in Office 2000-2016
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String

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

    strbody = "<H3><B>Bonjour</B></H3>" & _
              "Nous vous informons que la facture du 00.00.2016 est disponible dans le répertoire DIRECTION.<br>" & _
              "Lien :<br>" & _
              "<A HREF=""\\DIRECTION"">192.168.4.1\DIRECTION</A>" & _
              "<br><br><B>Cordialement.</B>"

    On Error Resume Next

    With OutMail
        .Display
        .To = "jean.dupont@groupe.com"
        .CC = ""
        .BCC = ""
        .Subject = "SITUATION DE TRESORERIE AU"
        .HTMLBody = strbody & "<br>" & .HTMLBody
        .Display 'remplacer par Send si envoi directement'
    End With

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