Envoyer un e-mail avec le composant Smart Mail


Définition

Comment envoyer un e-mail avec le composant Smart Mail

 

Voici un exemple de code pour envoyer un mail avec une piece jointe et le composant SmartMail :

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 = "[email protected]"

'Destinataires
mySmartMail.Recipients.Add "[email protected]", "Nom_Destinataire1"
mySmartMail.Recipients.Add "[email protected]", "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 & "
")
Else 

Response.Write "Message envoyé avec aspSmartMail 
"

Response.Write mySmartMail.Attachments.Item(1).FilePathName
End If

'Destruction de l'objet
Set mySmartMail = Nothing

 

Notez cet article

Vous avez noté 0 étoile(s)

Cet article a été lu 768 fois.


Cet article vous a t'il été utile ?

Merci !

N'hésitez pas à commenter nos pages afin de nous aider à les améliorer si besoin.

Nous sommes désolés

Comment pouvons-nous l'améliorer ? (Indiquez votre addresse mail dans le corps du message si vous désirez recevoir une réponse)

Si vous désirez recevoir une réponse, merci d'indiquer votre mail dans votre commentaire.

comments powered by Disqus
Top