hello check this code
<%
Dim objet_NewMail
Set objet_NewMail = CreateObject("CDONTS.NewMail")
Contenu = "" _
& "<html>" _
& "<head>" _
& "<title>Welcome to suren</title>" _
& "</head>" _
& "<body>" _
& "<h1>hi</h1>" _
& "<p>visit <a href="www.trustnetmarketing.com" target="_blank">http://www.trustnetmarketing.com"</a></p> _
& "</body>" _
& "</html>"
objet_NewMail.From = "
[email protected]"
objet_NewMail.To = "
[email protected]"
objet_NewMail.Subject = "Courrier électronique"
objet_NewMail.BodyFormat = 1
objet_NewMail.MailFormat = 1
objet_NewMail.Body = Contenu
objet_NewMail.Importance = 2
objet_NewMail.AttachFile = "c:\suren.doc", "Pièce jointe"
objet_NewMail.Send
Set objet_NewMail = Nothing
%>