Attention !! CDONTS le serveur Microsoft SMTP est actif surle serveur WEB.

Déclaration de l'objet

<%
Dim MAILCDO
Set MAILCDO = Server.CreateObject("CDONTS.NewMail")
%>

Utilisation de l'objet

<%
'envoyer à qui?
MAILCDO.To = "test@infonie.fr"
' de la part de qui ?
MAILCDO.From = "jean-christ@infonie.fr"

' texte à envoyer
Dim CorpsDuTexte
CorpsDuTexte = "Bonjour test, tu devrais essayer CDONTS ça fonctionne pas mal..."

'Sujet
MAILCDO.Subject = "ASP Magazine : l'objet CDONTS"
MAILCDO.Body = CorpsDuTexte
' Importance du message, dans l'ordre d'importance 0,1 ou 2
MAILCDO.Importance = 0 ' Normal

' Pièces jointes
MAILCDO.AttachFile("\\monserveur\jean-christ\joindre.doc","joindre.doc")

'on envoie
MAILCDO.Send
' on détruit l'objet créé
set MAILCDO=Nothing
%>