<%@ Page aspcompat=true language="VB"%>
<%
Dim Mail as Object
Dim sendMail as Object
' Création de l'objet JMAIL
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.NET"
' Définition du corps du message
Mail.BodyText = "Ceci est un message envoyé avec le composant Aspmail en ASP.NET"
' Envoi du message
sendMail = Mail.SendMail
If sendMail = true Then
Response.Write("Email envoyé!")
Else
Response.Write("Erreur : " & Mail.response)
End If
' Destruction de l'objet
Set Mail = Nothing
%>
|
| Retour |
|
|
