La chose à savoir : CDONTS est installé par défaut depuis l'Option Pack 4 de Windows NT, et requiert de mettre en route le serveur SMTP.
!!! Attention !!! Microsoft a décidé de supprimer CDONTS avec IIS 5.1, donc sous WindowsXP vous n'aurez pas accès à ce composant. Il vous faudra trouver le fichier cdonts.dll puis l'enregistrer dans la base de registre sur votre serveur XP Pro!
Cdonts.dll : ce fichier est à placer dans votre winroot (WINNT dans la plupart des cas) puis dans le sous-répertoire System32. Ensuite faites Démarrer/Executer puis taper "regsvr32 cdonts.dll" pour enregistrer la dll dans la base de registre!
Ce fichier est aussi disponible sur le cdrom de windows 2000 pro et server sous la forme cdonts.dl_, en commande DOS, faites un "expand.exe cdonts.dl_ cdonts.dll" puis faites la manipulation comme indiquée plus haut.
Envoyer un mail :
<% Dim Mailer
Set Mailer = Server.CreateObject("CDONTS.NewMail") ' on crée l'objet CDONTS
Mailer.To = "destinataire@email.com" ' email du destinataire
Mailer.From = "expediteur@email.com" ' email de l'expediteur
Mailer.Subject = "Titre du message" ' titre du message
Mailer.Body = "Le texte qui sera envoyé" ' corps du message
Mailer.Send ' on envoie le tout
%>
On peut également mettre le tout sur une seule ligne qui devrait alors ressembler à ça :
<% ' on crée toujours l'objet avant Mailer.Send "expediteur@email.com","destinataire@email.com","Titre du message","Le texte à envoyer" ' et on le ferme toujours après %>
Une fois le mail envoyé, on n'oublie pas de fermer l'objet Mailer sinon on ne peut plus en envoyer ultérieurement, avec la commande :
<% Set Mailer = Nothing %>
Fonctions supplémentaires :
<% ' importance : 0 = normal, 1 = urgent, 2 = très urgent Mailer.Importance = 0 ' le chemin du fichier qui sera attaché Mailer.AttachFile "\\repertoire\fichier.jpg","fichier.jpg" ' liste des destinataires en CarbonCopy, séparés par une virgule Mailer.Cc = "email1@email.com, email2@email.com" ' liste des destinataires en BlindCarbonCopy (Copie cachée invisible), séparés par une virgule Mailer.BCc = "email1@email.com, email2@email.com"
' Pour envoyer un mail au format HTML, ajouter ces 2 lignes : Mailer.BodyFormat = 0 Mailer.MailFormat = 0 ' Pour laisser le mail en format PlainText, mettez des 1 pour ces 2 lignes %>