Problème de police dans un mail généré à partir d'Excel

Pitbul0169@ Messages postés 32 Date d'inscription dimanche 8 mai 2016 Statut Membre Dernière intervention 24 juin 2023 - 24 juin 2023 à 10:22

Bonjour à tous,

Je cherche depuis quelques temps une solution à mon problème de taille de police dans le corps d'un mail avec signature généré à partir d'un fichier Excel. Je m'explique...

Je génère un mail à partir d'Excel avec le code ci-dessous :

Sub CreerMail()

    'Déclarationdes variables
    Dim oOutlook As Object
    Dim oMail As Object
    
    'On affecte les variables de type objet - initialisation des variables objets - SET
    Set oOutlook = CreateObject("Outlook.Application")
    Set oMail = oOutlook.CreateItem(0)
   
    'On construit le message
    With oMail
        .Display 'On affiche le message, nécessaire pour récupérer la signature
        .to = "***@***" 'L'adresse du destinataire
        .Subject = "Sujet du mail"          'On affiche l'objet du mail
        'On affiche le corps du mail -> NOT OK
        .HTMLBody = "Bonjour,<br>" & _
                    "Je suis le corps du message.<br>" & _
                    .HTMLBody
        .Display                            'On affiche le message
    End With

End Sub

Ma police par défaut sous Outlook est Calibri taille 11.

Le mail est bien généré, mais mon texte apparait en Calibri taille 10.

Si je supprime l'insertion de ma signature ou que j'insère un texte simple, c'est à dire sans balise HTML, la police de mon message est bien Calibri taille 11. 

Quelqu'un aurait-il une solution pour que mon message apparaisse en Calibri taille 11 même avec l'insertion de ma signature ?

Pitbul0169@
Windows / Chrome 114.0.0.0 / Outlook + Excel 365 version 2304 Build 16.0.16327.20324

A voir également: