Bonjour

J'utilise la macro suivante qui envoie un mail à partir de Outlook au format RTF :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Envoi_un_mail()
 
    EB = Cells(ActiveCell.Row, 1)
    dates = Cells(ActiveCell.Row, 12)
 
    Subject = "EB " & EB & " terminée"
    body = "{\rtf " & _
    "\par Paul,\par \par " & _
    "L'EB " & EB & " est terminée le " & dates & _
    "\par \par Cordialement" & _
        "}"
 
  email = "prenom.nom@FAI.com"
    URLto = "mailto:" & email & "?subject=" & Subject & "&body=" & body
    ActiveWorkbook.FollowHyperlink Address:=URLto
 
End Sub
Serait il possible en modifiant légèrement la macro de changer le format RTF en HTML.

Merci