Support ciblé
/ Accueil / Support technique / Support / Utilisation de CDONTS

Utilisation de CDONTS

Cette page contient des exemples d'utilisation de CDONTS sur l'espace d'hébergement NetBenefit Win2K et Win2KCF.
Notez que CDONTS ne fonctionne pas sur l'espace d'hébergement Win2003 ; vous devez utiliser CDOSYS.
CDOSYS fonctionnant sous Win2000 et Win2003, nous vous recommandons d'utiliser CDOSYS pour éviter d'avoir à recoder lors d'une mise à niveau ultérieure.

  1. Utilisation de CDONTS pour envoyer des messages textuels formatés
  2. Utilisation de CDONTS pour envoyer des messages HTML formatés
  3. Utilisation de CDONTS pour utiliser un message en CC (Carbon Copy) ou en BCC (Blind Carbon Copy)
  4. Utilisation de CDONTS pour envoyer des e-mails avec un nom d'usage
  5. Exemple de formulaire via e-mail
1. Utilisation de CDONTS pour envoyer des messages textuels formatés

<%
    Set MailObj = CreateObject("CDONTS.NewMail")
    MailObj.From = "expéditeur@mondomaine.com"
    MailObj.To = "destinataire@leurdomaine.com"
    MailObj.Subject = "Message test"
    Text = "Merci pour votre envoi." & chr(13) & chr(10)
    Text = Texte & "Votre requête est en cours de traitement." & chr(13) & chr(10)
    Text = Texte & "Patientez 48 heures avant d'obtenir une réponse."
    MailObj.Body = Texte
    MailObj.Send
    Set MailObj = nothing
%>

 

2. Utilisation de CDONTS pour envoyer des messages HTML formatés

<%
    Set MailObj = CreateObject("CDONTS.NewMail")
    MailObj.From = "expéditeur@mondomaine.com"
    MailObj.To = "destinataire@leurdomaine.com"
    MailObj.Subject = "Message test"
    HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
    HTML = HTML & "<html>"
    HTML = HTML & "<head>"
    HTML = HTML & "<title>E-mail CDOSYS test au format HTML</title>"
    HTML = HTML & "</head>"
    HTML = HTML & "<body bgcolor=""FFFFFF"">"
    HTML = HTML & "<p><font size =""3"" face=""Arial"">"
    HTML = HTML & "<b>Mon entreprise Ltd.</b><BR>"
    HTML = HTML & "Votre abonnement au bulletin d'informations</p>"
    HTML = HTML & "<p align = ""center"">Dans ce bulletin d'informations, nous présentons un nouveau produit.</p>"
    HTML = HTML & "</body>"
    HTML = HTML & "</html>"
    MailObj.BodyFormat = 0
    MailObj.MailFormat = 0
    MailObj.Body = HTML
    MailObj.Send
    Set MailObj=nothing
%>

Remarque :
MailObj.BodyFormat = 0 définit l'e-mail au format HTML (ne spécifiez aucune valeur ou définissez la valeur sur = 1 pour du texte normal).
MailObj.MailFormat = 0 définit l'e-mail sur MIME encodé (ne spécifiez aucune valeur ou définissez la valeur sur = 1 pour du texte normal).

 

3. Utilisation de CDONTS pour envoyer un message en CC (Carbon Copy) ou en BCC (Blind Carbon Copy)

Vous devez ajouter une ligne, telle que :
    MailObj.Cc = "cc@ccdomain.com"
    MailObj.Bcc = bcc@bccdomain.com

 

4. Utilisation de CDONTS pour envoyer des e-mails avec un nom d'usage

Insérez l'adresse e-mail entre crochets, comme par exemple :
    MailObj.From = "Mr expéditeur <expéditeur@mondomaine.com>"

 

5. Exemple de formulaire via e-mail

Enregistrez le script suivant dans un fichier appelé sendmail.asp.

<% Response.Buffer = True %>
<!--- sendmail.asp CDONTS version--->
<!--- Ce fichier est un utilitaire Sendmail générique qui --->
<!--- sélectionne un formulaire et traite les champs --->
<!--- en conséquence. --->
<!--- Les champs de contrôle masqués doivent inclure les éléments suivants --->
<!--- destinataire :- personne à qui l'e-mail doit être envoyé --->
<!--- objet : - objet du message --->
<!--- redirection : - prochaine page à afficher après l'envoi --->
<!--- expéditeur : - provenance du message. --->
<!--- - Il doit s'agir d'une adresse e-mail VALIDE. --->
<%
Set MailObj = CreateObject("CDONTS.NewMail")
MailObj.From = Trim(Request.Form("from"))
MailObj.To = Trim(Request.Form("recipient"))
MailObj.Subject = Trim(Request.Form("subject"))
Text = ""

For Each FieldName in Request.Form
For Each FieldValue in Request.Form(FieldName)
If LCase(FieldName) = "recipient" Or LCase(FieldName) = "subject"_
Or LCase(FieldName) = "redirect" Or LCase(FieldName) = "from" Then
Else
Text = Text & FieldName & " = " & FieldValue & chr(13) & chr(10)
End If
Next
Next

MailObj.Body = Text
MailObj.Send
Set MailObj = nothing
Response.Redirect Request.Form("redirect")
%>

 

Votre formulaire doit alors contenir les champs spéciaux suivants : destinataire, objet, expéditeur, redirection.
L'attribut ACTION du formulaire doit être le script ci-dessus.

<FORM METHOD="POST" ACTION="sendmail.asp">
<INPUT TYPE="HIDDEN" NAME="recipient" VALUE="[VOTRE ADRESSE E-MAIL]">
<INPUT TYPE="HIDDEN" NAME="objet" VALUE="[OBJET DU MESSAGE]">
<INPUT TYPE="HIDDEN" NAME="redirect" VALUE="[PAGE DE REMERCIEMENTS]">
<INPUT TYPE="HIDDEN" NAME="from" VALUE="[ADRESSE DE L'EXPÉDITEUR]">

Ne modifiez pas les autres sections de votre formulaire, comme par exemple :

Message1:<INPUT TYPE="TEXTE" NAME="Message1"><BR>
Message2:<INPUT TYPE="TEXTE" NAME="Message2"><BR>
<INPUT TYPE="Submit" VALUE="Envoyer le message"><BR>
</FORM>

Obtenir un devis