Sub liensDansCorpsDuMessage_CDO()
'adapté de : [url=http://support.microsoft.com/default.aspx?kbid=286430]How To Send HTML Formatted Mail Using CDO for Windows 2000 and the Local Pickup Directory[/url]
Dim iMsg As Object, iConf As Object
Dim strHTML As String
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
strHTML = ""
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "Bonjour , <BR>Découvrez Microsoft Office sur le site Developpez<BR><BR>"
strHTML = strHTML & "<A href='" & ThisWorkbook.FullName & "'>Cliquez ici.</A>"
strHTML = strHTML & "<BR><BR>Cordialement<BR>" & Environ("UserName") & "<BR>"
strHTML = strHTML & "<A href=mailto:emetteur@mail.fr>Mon adresse mail</A>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & ""
With iMsg
Set .Configuration = iConf
.To = "[EMAIL="NomPrenom@mail.fr"]NomPrenom@mail.fr[/EMAIL]" 'Renvoie une erreur si l'adresse est non valide
'.From = "[EMAIL="youralias@yourdomain.com"]youralias@yourdomain.com[/EMAIL]"
.Subject = "Test Envoi liens par mail"
.HTMLBody = strHTML
.Send
End With
End Sub