Envoyer un mail avec CDONTS ASP|PHP - Envoyer un E-mail Installer le serveur SMTP de Windows
Envoyer un mail avec CDONTS Tout ça en 7 lignes...

Télécharger l'article au format PDF

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!

Comment se procurer cdonts.dll ? Cliquez ici (172 Ko) ou allez cette page pour de plus amples informations :
http://support.microsoft.com/directory/article.asp?ID=KB;EN-US;Q171440&

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 %>

Spécifier l'utilisation d'un serveur SMTP distant (non local)