L'objet CDONTS.NewMail donne la possiblité d'envoyer un message directement à partir d'une page ASP.
L'objet NewMail fait parti de la librairie CDO (Collaboration Data Objects) permettant d'émettre et de recevoir des messages à partir des serveurs Microsoft.
La librairie CDO est installée avec les logiciels Microsoft® Exchange Client and Server, et Outlook 98.
L'instanciation de l'objet NewMail s'effectue comme suit :
Set Objet_eMail = Server.CreateObject("CDONTS.NewMail")| Propriété |
|---|
| Description |
| From = "adresse@email.com" |
| indique l'adresse de l'expéditeur du message courant. |
| To = "adresse@email.com;...;adresseN@email.com" |
| indique les adresses des destinataires du message courant. |
| Subject = "Sujet" |
| indique le sujet du message. |
| Body = "Contenu" |
| contient le texte du message. |
| Cc = "adresse@email.com;...;adresseN@email.com" |
| indique les adresse eMail des destinataires de copies du message courant. |
| Bcc = "adresse@email.com;...;adresseN@email.com" |
| indique les adresses eMail des destinataires de copies de courtoisie du message courant. |
| Importance = 0 | 1 | 2 |
| spécifie par une valeur entière, la priorité du message, 0 indiquant une basse priorité, 1 une priorité normale (par défaut) et 2 une haute priorité. |
| BodyFormat = 0 | 1 |
| spécifie par une valeur entière, le format du corps de l'objet NewMail, ObjMail.BodyFormat = 0 | 1 indiquant respectivement un format HTML ou un format textuel simple. |
| MailFormat = 0 | 1 |
| spécifie par une valeur entière, l'encodage de l'objet NewMail, ObjMail.MailFormat = 0 | 1 indiquant respectivement un format MIME ou un format textuel simple. |
| ContentBase = "Base_URL" |
| fixe une base pour toutes les adresses URL en relation avec le contenu du message courant. |
| ContentLocation = "Chemin" |
| fixe un chemin relatif ou absolu pour toutes les adresses URL en relation avec le message courant. |
| Value("Nom") = "Contenu" |
| fixe la valeur et le contenu d'un entête additionnel pour le message courant. |
| Version = "Numéro_de_Version" |
| retoune le numéro de version de l'objet NewMail. |
| Méthode |
|---|
| Description |
| AttachFile(Source [, Nom_Fichier] [, Encodage]) |
| attache un fichier (Source) avec un nom de fichier optionnel à l'objet Newmail. |
| AttachURL(Source, Localisation [, Base] [, Encodage]) |
| attache un fichier (Source) à l'objet Newmail en lui associant une adresse URL (Localisation). |
| Send([From] [, To] [, Subject] [, Body] [, Importance]) |
| envoie le message. |
| SetLocaleIDs(CodePageID) |
| fixe l'identificateur qui définit les paramètres locaux de messagerie d'un utilisateur. |
L'encodage des méthodes AttachFile et AttachURL peuvent être :
<%
Dim objet_NewMail
Set objet_NewMail = Server.CreateObject("CDONTS.NewMail")
objet_NewMail.From = "expediteur@serveur.com"
objet_NewMail.To = "destinataire@serveur.com"
objet_NewMail.Subject = "Courrier électronique"
objet_NewMail.Body = "Le corps du message..."
objet_NewMail.BodyFormat = 0
objet_NewMail.MailFormat = 0
objet_NewMail.Send
Set objet_NewMail = Nothing
%>
<%
Dim objet_NewMail
Set objet_NewMail = CreateObject("CDONTS.NewMail")
Contenu = "" _
& "<html>" _
& "<head>" _
& "<title>Courrier électronique</title>" _
& "</head>" _
& "<body>" _
& "<h1>Sujet du message</h1>" _
& "<p>Le corps du message...</p>" _
& "</body>" _
& "</html>"
objet_NewMail.From = "expediteur@serveur.com"
objet_NewMail.To = "destinataire"
objet_NewMail.Subject = "Courrier électronique"
objet_NewMail.BodyFormat = 1
objet_NewMail.MailFormat = 1
objet_NewMail.Body = Contenu
objet_NewMail.Importance = 2
objet_NewMail.AttachFile = "c:\piecejointe.doc", "Pièce jointe"
objet_NewMail.Send
Set objet_NewMail = Nothing
%> |