Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
With iMsg
Set .Configuration = iConf
.To = "destinataire@mail.fr"
.Subject = "Le titre du message"
.HTMLBody = "Ceci est un essai ..."
.Fields("urn:schemas:mailheader:disposition-notification-to") = _
"emetteur@mail.fr"
.Fields("urn:schemas:mailheader:return-receipt-to") = _
"emetteur@mail.fr"
.Fields.Update
.Send
; End With