Bonsoir à tous,
Je fais appel à vos lumières pour éclairer ma lanterne au sujet de ce problème qui me préoccupe depuis plusieurs jours :
J'ai adapté un code pour pouvoir envoyer un mail dans Outlook depuis Excel.
Comme vous pourrez le constater sur mon code ci-dessous, j'ai placé un .Display au début et un .HTMLBody à la fin pour insérer ma signature.
Or, quand je lance le code et que le mail s'ouvre, le texte qui devrait être en Calibri 11 est en Calibri 10.
Lorsque je modifie la taille de police dans le code, toutes les tailles de police fonctionnent en-dehors de Calibri 11.
Mais lorsque je génère le mail sans signature, le texte est bien en Calibri 11.
Est-ce que quelqu'un aurait une idée d'où pourrait provenir le problème ?
La signature contient plusieurs tailles de police (Calibri 9, 10 et 11), est-ce que cela peut influencer la taille de police du corps du mail ?
Je fais appel à vos lumières pour éclairer ma lanterne au sujet de ce problème qui me préoccupe depuis plusieurs jours :
J'ai adapté un code pour pouvoir envoyer un mail dans Outlook depuis Excel.
Comme vous pourrez le constater sur mon code ci-dessous, j'ai placé un .Display au début et un .HTMLBody à la fin pour insérer ma signature.
Or, quand je lance le code et que le mail s'ouvre, le texte qui devrait être en Calibri 11 est en Calibri 10.
Lorsque je modifie la taille de police dans le code, toutes les tailles de police fonctionnent en-dehors de Calibri 11.
Mais lorsque je génère le mail sans signature, le texte est bien en Calibri 11.
Est-ce que quelqu'un aurait une idée d'où pourrait provenir le problème ?
La signature contient plusieurs tailles de police (Calibri 9, 10 et 11), est-ce que cela peut influencer la taille de police du corps du mail ?
VB:
Sub envoyermail2()
Dim lemail As Variant
Set lemail = CreateObject("Outlook.Application")
With lemail.CreateItem(olMailItem)
.SentOnBehalfOfName = ThisWorkbook.Sheets("mail").Range("B1").Value
.To = ThisWorkbook.Sheets("mail").Range("B2").Value
.Subject = ThisWorkbook.Sheets("mail").Range("B3").Value
.Display
.HTMLBody = " <div style='font-size:11pt'> texte1 </div> " & _
" <div style='font-size:9pt'> texte2 </div> " & _
" <div style='font-size:11pt'> texte3 </div> " & _
" <div style='font-size:11pt'> texte4 </div> " & _
" <br> " & _
" <div style='font-size:11pt'> texte5 </div> " & _
" <br> " & _
" <div style='font-size:11pt'> texte6 </div> " & _
" <br> " & _
" <div style='font-size:11pt'> texte7 </div> " & _
" <br> " & _
" <div style='font-size:9pt'> texte8 </div> " & _
" <br> " & _
" <div style='font-size:11pt'> texte9 </div> " & _
" <div style='font-size:9pt'> texte10 </div> " & _
" <div style='font-size:11pt'> texte11 </div> " & _
.HTMLBody
'.Attachments.Add = ThisWorkbook.Sheets("mail").Range("B4").Value
'.Attachments.Add = ThisWorkbook.Sheets("mail").Range("B5").Value
'.Attachments.Add = ThisWorkbook.Sheets("mail").Range("B6").Value
End With
End Sub