Sub liensDansCorpsDuMessage_CDO()
'testé avec XP
'adapté de : [url]http://support.microsoft.com/default.aspx?kbid=286430[/url]
Dim iMsg As Object, iConf As Object
Dim strHTML As String
Set iMsg = CreateObject('CDO.Message')
Set iConf = CreateObject('CDO.Configuration')
'exemple de contenu de la cellule A1 :[URL]https://www.excel-downloads.com/[/URL]
'exemple de contenu de la cellule A2 :monMail@xld.fr
strHTML = ''
strHTML = strHTML & '<HEAD>'
strHTML = strHTML & '<BODY>'
strHTML = strHTML & 'Bonjour , <BR>vous trouverez ci joint les infos demandées<BR><BR>'
strHTML = strHTML & '<A href='' & Range('A1') & ''>' & Range('A1') & '</A>'
strHTML = strHTML & '<BR><BR>Cordialement<BR>' & Application.UserName & '<BR>'
strHTML = strHTML & '<A href=mailto:' & Range('A2') & '>' & Range('A2') & '</A>'
strHTML = strHTML & '</BODY>'
strHTML = strHTML & ''
With iMsg
Set .Configuration = iConf
.To = 'forum@xld.fr' 'renvoie une erreur si l'adresse est non valide
'.From = 'youralias@yourdomain.com'
.Subject = 'Test Envoi liens par mail'
.HTMLBody = strHTML
.Send
End With
End Sub