<%@ Page aspcompat=true language="VB"%>
<%
Dim Mail as Object
' Création de l'objet
Mail = Server.createObject("Persits.Mailsender")
' Définition de l'hôte (serveur smtp)
Mail.Host = "127.0.0.1"
' Définition de l'expéditeur
Mail.From = "expediteur@platine.com"
' Définition du destinataire
Mail.FromName = "Nom Destinataire"
Mail.AddAddress ("johnsmith@platine.com", "John Smith")
' Sujet et corps au format HTM
Mail.Subject ="Test ASPEmail en ASP.NET"
Mail.Body = "‹HTML›‹BODY›Ceci est un test du composant ASPEMAIL en ASP.NET‹/BODY›‹/HTML›"
Mail.IsHTML = True
' Fichier joint (optionnel)
Mail.AddAttachment ("D:\clients\comptedetest\users\upload\test.jpg")
' Le corps du texte peut être un fichier HTM, ce corps peut être envoyer avec ou en plus de body (optionnel)
' Mail.AppendBodyFromFile ("c:\message.html")
' Envoi du message et gestion des erreurs
On Error Resume Next
Mail.Send
If Err.number = 0 Then
Response.Write ("Email envoyé!")
Else
Response.Write ("Une erreur s'est produite: " & Err.Description)
End If
' Destruction de l'objet
Mail=nothing
%>
|
| Retour |
|
|
