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

Utilisation de CDOSYS

Cette page contient des exemples d'utilisation de CDOSYS sur l'espace d'hébergement NetBenefit Win2K, Win2KCF et Win2003.

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

<%
    Set MailObj = CreateObject("CDO.Message")
    MailObj.From = "expéditeur@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 & "Veuillez patienter 48 heures pour obtenir une réponse."
    MailObj.TextBody = Text
    MailObj.Send
    Set MailObj = nothing
%>

 

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

<%
    Set MailObj = CreateObject("CDO.Message")
    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>Tester l'e-mail CDOSYS 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"">In this newsletter we announce a new product.</p>"
    HTML = HTML & "</body>"
    HTML = HTML & "</html>"
    MailObj.HTMLBody = HTML
    MailObj.Send
    Set MailObj=nothing
%>

 

3. Utilisation de CDOSYS 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 CDOSYS 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 dans un fichier appelé sendmail.asp.

<% Response.Buffer = True %>
<!--- sendmail.asp CDOSYS 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("CDO.Message")
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 = Texte & NomdeChamp & " = " & ValeurdeChamp & chr(13) & chr(10)
End If
Next
Next

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

Le 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="[THANKYOU PAGE]">
<INPUT TYPE="HIDDEN" NAME="from" VALUE="[FROM ADDRESS]">

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

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

Obtenir un devis