[ RETOUR ]

ASP > mail et ASP

Les commandes essentielles d'ASPMail

Composant vedette de Server Objects Inc., ASPMail permet l'envoi (individuel ou en nombre) d'e-mails à partir d'une page ASP.

Etape 1 : Création d'une instance ASPMail

<% Set Mailer = Server.CreateObject("SMTPsvg.Mailer") %>

Etape 2 : Définition des paramètres du mail

<% Set Mailer = Server.CreateObject("SMTPsvg.Mailer") %>
'création de l'instance ASPMail
<% Mailer.FromName = "Votre nom"
Mailer.FromAddress= "vous@votredomaine.com"
'votre adresse e-mail
Mailer.RemoteHost = "mail.votredomaine.com"
'votre serveur SMTP
Mailer.AddRecipient "Votre client", "client@sondomaine.com"
'nom et adresse e-mail de votre destinataire
Mailer.Subject = "Du nouveau sur notre site"
'sujet du message
Mailer.BodyText = "Cher client," & VbCrLf & "Il y a du nouveau
sur notre site."
'texte du message. Les retours à la ligne se font avec VbCrLf %>

Etape 3 : Envoi du mail

<% if Mailer.SendMail then
Response.Write "Message envoyé!"
'si tout est ok, ASP Mail confirme l'envoi du message
Mailer.ClearAllRecipients
'on libère la zone mémoire contenant les destinataires
Mailer.ClearBodyText
'on libère la zone mémoire contenant le texte du message
else
Response.Write "Echec de l'envoi. Erreur: " & Mailer.Response
'si l'envoi n'a pas pu se faire, ASPMail vous dit pourquoi
end if %> 

Envoyer un e-mail avec CDONTS

CDONTS est un composant SMTP livré en standard avec NT Server. Il vous permet d'envoyer un message en e-mail à partir d'une page ASP, selon des paramètres définis dans un formulaire.

Etape 1 : Dimensionnement d'une variable mail et création de l'objet CDONTS

<% dim mail
Set mail = Server.CreateObject("CDONTS.NewMail") %>

Etape 2 : Définition des paramètres du mail

<% mail.To = "destinat1@domaine1.com,destinat2@domaine2.com"
'adresse du ou des destinataires
mail.From = "vous@votredomaine.com"
'adresse de l'expéditeur
mail.Subject = "Votre demande de documentation"
'sujet du message
Dim Message 
Message = "Nous avons bien reçu votre demande de documentation,
et vous l'expédions ce jour-même!"
'le texte qui constituera le corps du message
'(il peut englober des variables)
mail.Body = Message
'insertion du texte "message" dans le corps du message 
mail.Importance = 0
'priorité du message : 0-> Normal, 1->Urgent, 2->Très urgent 
mail.Attach.File("\\votre_serveur\...\fichier.zip", "fichier.zip")
'pièces jointes 
%>

Etape 3 : Envoi du mail

<% mail.Send 
Set mail = Nothing %> 

[ RETOUR ]