begin process at 2010 07 31 05:00:33
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Composants

 > COMPOSANT ASPMAIL

COMPOSANT ASPMAIL


 Information sur la source

Note :
6 / 10 - par 1 personne
6,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Composants Classé sous :composant, aspmail, envoie, mail, email Niveau :Débutant Date de création :07/08/2001 Vu :10 535
Auteur : pi0up51

Ecrire un message privé
Site perso
Commentaire sur cette source (1)
Ajouter un commentaire et/ou une note

 Description

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

Source

  • <%
  • 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
  • %> 
<%
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


 Sources du même auteur

AUTOMATISATION DES CONNECTION ET RECORDSET
NOMBRE DE CONNECTÉ (AVEC MEMBRES ;)
DERNIÈRE VISITE SUR LE SITE (COOKIE)
FONCTION DE FORMATAGE DE TEXTE
PETITES FONCTIONS POUR UTILISER LES DATES
Toutes les sources de pi0up51

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) CUSTOM USER CONTROL COLLECTION par ranouf
Source avec Zip Source .NET (Dotnet) COMPACTER DU JAVASCRIPT par jesusonline
Source avec Zip Source avec une capture Source .NET (Dotnet) WEBCONTROL WYSIWYG POUR ASP.NET par Yxion
Source avec Zip Source avec une capture ANTIBOT par ghuysmans99
INCLURE UNE LIBRAIRIE par Warwick
Toutes les sources de la catégorie Composants

 Sources en rapport avec celle ci

Source .NET (Dotnet) C# - FONCTION TRÈS SIMPLE POUR ENVOYER UN MAIL VIA SMTP par fabrice69
Source avec Zip E-MAIL EN JMAIL SIMPLE ET EFFICACE + FORMULAIRE par GillesWebmaster
ENVOIE MAIL EN SMTP DEPUIS WINDOWS 2003 / ASP SANS COMPOSANT par lord mathius
VALIDITER EMAIL TRES SIMPLE !!! par Jackboy
Source avec Zip Source avec une capture Source .NET (Dotnet) ENVOI D'UN MAIL EN ASP.NET (GARANTIE 100% ET TRÈS SIMPLE) par CBphoenix

Commentaires et avis

Commentaire de FlorenceL le 24/01/2006 14:18:50

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.

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Envoie de mail en chinois [ par nextools ] Bonjour,Je fais un site pour des Chinois et les difficult&#233;s sont nombreuses. Je cherche &#224; envoyer des mails TXT en chinois.Je fais un formul envoie mail asp.net [ par yassinozi ] bonjour j'ai un formulaire d'inscritpion sur un site web et je veux que l'utilisateur recoit son login et son mot de passe par mail pour securiser l' Envoie collectif des e-mail [ par younesway ] Bonjour, J'ai une feuil Excel qui porte 1400 adress mail, je suis senser de faire envoyer chaque samedi un message à chaque adress et le tout doit êt envoi email [ par scottmat ] Bonjours à tous,a la création d'un compte membership on peut envoyer un mail pour confirmer une inscription.dans le composant createuser j'ai ajouter envoie de mail [ par caudette ] Bonjour,voici mon pb, j'ai un formulaire d'insertion d'un nouvel appel et dans ce formulaire j'ai une dropdownliste qui me permet de selectionner une Envoi de mail [ par nindy13 ] Bonjour tout le monde,J'ai un souciavant j'envoyais un mail grâce à ce code Dim mail As<font color Envoie d'un mail lors d'une insertion dans une base [ par Uebueb ] Salut,J'aimerais savoir comment on envoie un mail lorsqu'une requete d'insertion a été faite dans une table, si quelqu'un pouvait m'eclairer ce serait Pb d'envoi de mail par SMTP [ par ilitman ] Salut, voilà je cherche d'une manière simple à envoyer un mail directement depuis un formulaire ASP en passant par un serveur SMTP necessitant une ide probleme avec mail message [ par danyclassique ] Bonjour a tous,J ai cree un petit systeme de news letters .dans un site .en utilisant la classe mailmessageQuand j envoie une news pas trop grande ca


Nos sponsors


Sondage...

CalendriCode

Juillet 2010
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,780 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)