Envoyer mail type avec des couleurs par VBA via Outlook

[Fermé]
Signaler
-
 lthuy_811 -
Bonjour,
Pour mon travail je dois créer un bouton dans Excel qui permet de se diriger directement vers outlook pour envoyer un mail. Pour cela, mon code VBA est :
Sub essaie()

Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Dim texte As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
texte = " Bonjour, voici la liste des produits qui seront bientôt périmés" & " ce mois ou le mois prochain" & vbcr & vbcr & " Veuillez les commander au plus vite"

With olmail
.Subject = " abc"
.Body = texte
.Display

End With
End Sub

Ma question c'est : Vu que c'est un email type, je voulais mettre le texte " ce mois ou le mois prochain " en rouge, et souligner le texte " veuillez les commander au plus vite".

En ayant cherché dans différentes sites je n'ai pas trouvé une solution pour mon cas. C'est pour cela que je me permets de me manifester pour demander vos aides.

Je vous remercie par avance,
Cordialement,

1 réponse

Messages postés
16046
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
24 octobre 2021
1 551
Bonjour,

remplacez .Body par

.HTMLBody = "Bonjour," & "<br>" & "" & "<br>" & "  voici la liste des produits qui seront bientôt périmés" & _
                              "<span style=""color:red""> ce mois ou le mois prochain</span>" & vbCr & vbCr & " <U> Veuillez les commander au plus vite </U>"
Merci beaucouppp