<%
On error resume next
Dim mySmartMail
Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail")
'Serveur email
mySmartMail.Server = "127.0.0.1"
'Expéditeur
mySmartMail.SenderName = "Nom_expéditeur"
mySmartMail.SenderAddress = "expediteur@platine.com"
'Destinataires
mySmartMail.Recipients.Add "destinataire1@platine.com", "Nom_Destinataire1"
mySmartMail.Recipients.Add "destinataire2@platine.com", "Nom_Destinataire2"
'Message
mySmartMail.Subject = "Test aspSmartMail"
mySmartMail.Body = "Ceci est un test du composant aspSmartMail."
'Pièce jointe
mySmartMail.Attachments.Add ("C:\sample.txt"),, false
'Envoi du message
mySmartMail.SendMail
'Gestion des erreurs
If err.number <> 0 Then
response.write("Erreur n° " & err.number - vbobjecterror & " = " & err.description & "<br>")
Else
Response.Write "Message envoyé avec aspSmartMail <br>"
Response.Write mySmartMail.Attachments.Item(1).FilePathName
End If
'Destruction de l'objet
Set mySmartMail = Nothing
%>
|
| Retour |
|
|
