Trucsweb.com

ASP

Envoyer un courrier électronique en ASP

RDFFav

Envoyer un courrier électronique en ASP - avec la composante CDONTS

Collaboration Data Objects for NTS (CDONTS) est installée par défaut avec Windows 2000 ou NT, il suffit de faire rouler le serveur SMTP pour pouvoir l’utiliser. Avec cette composante, vous pouvez envoyer un courriel à un destinataire en précisant l’envoyeur, le sujet, le message mais aussi l’importance du message, le format du courriel..CDONTS dll composante componement activex envoyer asp email courriel courrier électronique messagerie électronique sender CreateObject NewMail From To Cc Subject AttachFile Body Send destinataire priorité BodyFormat MailFormat mime type Importance

"Collaboration Data Objects for NTS" (CDONTS) est installée par défaut avec Windows 2000 ou NT, il suffit de faire rouler le serveur SMTP pour pouvoir l’utiliser. Avec cette composante, vous pouvez envoyer un courriel à un destinataire en précisant l’envoyeur, le sujet, le message mais aussi l’importance du message, le format du courriel et y attacher un document.

Puisque c’est une composante, vous devez l’ouvrir et ne pas oublier de la vider.

Dim objMail
Set objMail = CreateObject("CDONTS.NewMail")
...
Set objMail = Nothing

 

Envoyer un courriel en format texte (format par défaut)

<%
  Dim strMessage, objMai

  Set objMail = CreateObject("CDONTS.NewMail")
  objMail.From= "envoyeur@serveur.com"
  objMail.To= "destinataire@serveur.com"
  objMail.Cc="autre_destinataire@serveur.com"
  objMail.Subject="Sujet du courriel"

  ’ Construction du message "vbCrLf" provoque un saut de ligne
  strMessage = "Merci d’envoyer ce courriel" & vbCrLf & vbCrLf
  strMessage = strMessage & "Ligne du message" & vbCrLf
  strMessage = strMessage & "Autre ligne du message"

  objMail.Body= strMessage
  objMail.Send
  Set objMail = nothing
%>

 

Envoyer un courriel en format HTML
Le message peut contenir tout code HTML qui sera interprété par le logiciel de messagerie électronique du destinataire. Si le destinataire a un logiciel de messagerie électronique incompatible avec le HTML, il verra le code HTML avec le message. N’oubliez pas de doubler chaque guillemet du code HTML.

<%
  Dim objMail, strHTML

  Set objMail = CreateObject("CDONTS.NewMail")
  objMail.From= "envoyeur@serveur.com"
  objMail.To= "destinataire@serveur.com"
  objMail.Cc="autre_destinataire@serveur.com"
  objMail.Subject="Sujet du courriel"
  objMail.BodyFormat=0 ’ Message en format HTML
  objMail.MailFormat=0 ’ Courriel en format MIME format

  ’ Construction du message "vbCrLf" provoque un saut de ligne
  strHTML = "<!DOCTYPE strHTML PUBLIC""-//IETF//DTD strHTML//FR"">" & vbCrLf
  strHTML = strHTML & "<html>" & vbCrLf
  strHTML = strHTML & "<head>" & vbCrLf
  strHTML = strHTML & "<title>Envoyer un courriel en format HTML</title>" & vbCrLf
  strHTML = strHTML & "</head>" & vbCrLf
  strHTML = strHTML & "<body bgcolor=""#ffffff"">" & vbCrLf
  strHTML = strHTML & "<h1>Sujet du message</h1>"
  strHTML = strHTML & "<p>Message avec code HTML</p>"
  strHTML = strHTML & "<p align = ""center"">http://www.trucsweb.com</p>"
  strHTML = strHTML & "</body>"
  strHTML = strHTML & "</html>
"

  objMail.Body=strHTML
  objMail.Send
  Set objMail=nothing
%>

 

Envoyer un courriel avec un fichier attaché.
Le fichier attaché doit se trouver sur le même serveur. Vous devez indiquer le chemin d’accès (path) au complet (c:\rep\rep\fichier.ext).

<%
  Dim strMessage, objMail

  Set objMail = CreateObject("CDONTS.NewMail")
  objMail.From= "envoyeur@serveur.com"
  objMail.To= "destinataire@serveur.com"
  objMail.Cc="autre_destinataire@serveur.com"
  objMail.Subject="Sujet du courriel"

  objMail.AttachFile Server.MapPath("/repertoire/fichier.ext")
  ’ ou avec le chemin d’accès au complet
  ’objMail.AttachFile ("C:\inetpub\wwwroot\repertoire\fichier.ext")

  ’ Construction du message "vbCrLf" provoque un saut de ligne
  strMessage = "Merci d’envoyer ce courriel" & vbCrLf & vbCrLf
  strMessage = strMessage & "Ligne du message" & vbCrLf
  strMessage = strMessage & "Autre ligne du message"

  objMail.Body= strMessage
  objMail.Send
  Set objMail=nothing
%>

 

Téléchargez un exemple complet avec formulaire de saisie, code ASP pour envoyer le courriel et fonctions pour convertir un message en format HTML et pour lire un fichier texte. Téléchargez cdonts.zip

Django (Oznog) Blais
Dernière mise à jour :

Commentaires

8/10 sur 1 revues.
       Visites : 1516 - Pages vues : 20613
X

Trucsweb.com Connexion

Connexion

X

Trucsweb.com Mot de passe perdu

Connexion

X

Trucsweb.com Conditions générales

Conditions

Responsabilité

La responsabilité des Trucsweb.com ne pourra être engagée en cas de faits indépendants de sa volonté. Les informations mises à disposition sur ce site le sont uniquement à titre purement informatif et ne sauraient constituer en aucun cas un conseil ou une recommandation de quelque nature que ce soit.

Aucun contrôle n'est exercé sur les références et ressources externes, l'utilisateur reconnaît que les Trucsweb.com n'assume aucune responsabilité relative à la mise à disposition de ces ressources, et ne peut être tenue responsable quant à leur contenu.

Droit applicable et juridiction compétente

Les règles en matière de droit, applicables aux contenus et aux transmissions de données sur et autour du site, sont déterminées par la loi canadienne. En cas de litige, n'ayant pu faire l'objet d'un accord à l'amiable, seuls les tribunaux canadien sont compétents.

X

Trucsweb.com Trucsweb

X

Trucsweb.com Glossaire

X

Trucsweb.com Trucsweb

X

Trucsweb.com Trucsweb

Conditions

Aucun message!

Merci.

X
Aucun message!
X

Trucsweb.com Créer un compte

Créer un compte

.
@