Composant aspmail

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 622 fois - Téléchargée 38 fois

Contenu du snippet

Voilà, si vous cherchez le composant il est dispo un peu partout (PHIDJI, etc ...).
Pour le reste :
Le code :

Source / Exemple :


<%
Sub SendPassEmail(sPass)
sBody = ""
sBody = sBody & "Merci pour vous être inscrit à InfoBoX51 !!" & chr(10) & chr(13)
sBody = sBody & "Si vous avez le moindre probleme en informatique ou etc. vous avez bien fait de vous inscrire !! "
sBody = sBody & "Comme vous l'aurez remarqué : Y a pas encore grand chose mais ça va arrivé. La je commence à avancé :)."
sBody = sBody & chr(10) & chr(13)
sBody = sBody & chr(10) & chr(13)
sBody =sBody & "***** Enregistrer bien ce mail -- Ne perdez pas le password (pour l'instant vous pourrez pas le récupérer !! :( )! *****" & chr(10) & chr(13)
sBody = sBody & "         Ton pseudo: " & susername & chr(10) & chr(13)
sBody = sBody & "         Ton password : " & sPass & chr(10) & chr(13)
sBody = sBody & chr(10) & chr(13)
sBody = sBody & "Si vous avez le moindre pbs n'hésitez pas à nous nevoyer des e-mail : webmaster@infobox51.fr.st ou w0rms51@infobox51.fr.st."
sBody = sBody & chr(10) & chr(13)
sBody = sBody & "Merci à vous d'utilisé InfoBoX51.. " 
sBody = sBody & chr(10) & chr(13)
Set email = Server.CreateObject ("SMTPsvg.Mailer")  'on déclare l'objet ASPmail 
email.FromName = "pi0up51"  'on donne le nom de l'expéditeur du message 
email.FromAddress = "cyber.vincent@wanadoo.fr"  'on donne l'adresse email de l'expéditeur 
email.Subject = "Confirmation d'inscriptionà Infobox51"  'on donne le sujet du message 
email.BodyText = sBody  'on donne le message en lui même... 
email.RemoteHost = "smtp.wanadoo.fr"  'on donne le serveur SMTP qui sera utilisé pour l'envoi 
email.AddRecipient susername, semail  'on donne le nom et l'adresse email du destinataire 
If email.SendMail then  'on envoi le message 
response.write "Un E-mail vous est automatiquement envoé !!<br>"  'si le message a bien été envoyé, alors on retourne la chaine "Email envoyé !") 
Else  'sinon... 
message = "Email non-envoyé, l'erreur rencontrée est : " & email.Response
response.write message  'on retourne le contenu de la variable message et l'erreur rencontrée avec la méthode Response de l'objet ASPmail 
End If
%>

Conclusion :


Voilà, c tout, je pense ke vous aurez pas de porblèmes de compréhension. :)

@++ et bonn' prog'
pi0up51
www.infobox51.fr.st

A voir également

Ajouter un commentaire Commentaire
Messages postés
4
Date d'inscription
lundi 15 décembre 2003
Statut
Membre
Dernière intervention
24 janvier 2006

Bonjour,
J'utilise VBScript et ASP.
J'ai des lignes quasi-similaires aux vôtres pour envoyer un email à partir d'un asp :
Set email = Server.CreateObject ("Persits.MailSender")
email.FromName = "mon_nom"
email.FromAddress = "mon_adresse" ...
MAIS :
1) Pour email.RemoteHost = "smtp.wanadoo.fr", j'utilise "email.Host" : quelle est la différence entre "host" et "remoteHost" ?
2) Je dois authentifier l'email avant de l'envoyer. J'ai donc rajouter 'email.Username="nom_utilisateur" ' et 'email.Password="motdepasse" '.
Cet envoi de email est au sein d'une procédure qui s'exécute plusieurs fois pendant le traitement.
Et cela génère le message d'erreur suivant :
"Persits.MailSender.4 error '800a0006'
535 Error: authentication failed
pgm.asp, line 96 ". La ligne 96 est "email.Send "
Auriez-vous une piste sur cette erreur ?
Merci d'avance.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.