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
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.