Sub TestMail()
Set myitem = Outlook.Application.CreateItem(olMailItem)
Num_Affaire = InputBox("Entrez le n° d'affaire :", "Affaire")
objet = "Concerne l'affaire n° " & prp & ""
myitem.Subject = "L'objet du mail"
myitem.To = "toto@wanadoo.com"
myitem.Display
' on ajoute texte dans le message au format HTML
myitem.HTMLBody = "<p>Bonjour, </p> <p>Je vous écris pour. </p>" & _
"<p>Affaire n°: <B>" & Num_Affaire & _
"<p></B>Blablabla... <B>" & _
"<p></B>Cordialement. </p>" & myitem.HTMLBody
End Sub