<%
Dim Mail
' Création de l'objet
Set 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 HTML
Mail.Subject ="Test ASPEmail en ASP"
Mail.Body = "‹HTML›‹BODY›Ceci est un test du composant ASPEMAIL en ASP‹/BODY›‹/HTML›"
Mail.IsHTML = True
' Fichier joint (optionel)
Mail.AddAttachment "D:\clients\comptedetest\users\upload\test.jpg"
' Le corps du texte peut être un fichier HTML, ce corps peut être envoyé 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 <> 0 Then
Response.Write "Une erreur s'est produite: " & Err.Description
Else
Response.Write "Email envoyé!"
End If
' Destruction de l'objet
Set Mail=nothing
%>
|
| Retour |
|
|