<%
Dim Mail, sendMail
' Création de l'objet JMAIL
Set Mail = Server.CreateObject("SMTPsvg.Mailer")
' Définition du serveur SMTP
Mail.RemoteHost = "127.0.0.1"
' Adresse de l'expéditeur
Mail.FromName = "Nom_expediteur"
Mail.FromAddress = "expediteur@platine.com"
' Adresses des destinataires
Mail.Addrecipient "destinataire1", "destinataire1@platine.com"
Mail.Addrecipient "destinataire2", "destinataire2@platine.com"
' Sujet du mail
Mail.Subject = "Test du composant ASPMail en ASP"
' Définition du corps du message
Mail.BodyText = "Ceci est un message envoyé avec Aspmail"
' Envoi du message
sendMail = Mail.SendMail
' Réussite ou échec
If sendMail = true Then
Response.Write("Email envoyé!")
Else
Response.Write("Erreur : " & Mail.response)
End If
' Destruction de l'objet
Set Mail = Nothing
%>
|
| Retour |
|
|
