AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 07 00:09:00
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

ENVOIE D'UN MAIL VIA LE SERVEUR SMTP DE YAHOO


Information sur la source

Catégorie :VBScript Classé sous : mail, yahoo, envoyer, smtp Niveau : Débutant Date de création : 21/07/2005 Vu : 24 193
Auteur : keaoner Ecrire un message privé
Note :
6,71 / 10 - par 7 personnes
6,71 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (10)
Ajouter un commentaire et/ou une note

Description

Voici un VBS qui permet d'envoyer un mail ver une BAL que vous aurez choisi
l'avantage est que dans ce script pas besoin d'utilisé le smtp de votre provider car vous passer par celui de yahoo qui demande une
authentification,ce qui permet a ce script d'être utlisé via n'importe quel fournisseur d'accès a internet
petite précision quand même il faut biensûr se rendre sur le site de yahoo et ce créer un compte mail et ne pas oublier d'activer l'option pop et smtp dans les option de votre compte yahoo
 

Source

  • Set objEmail = CreateObject("CDO.Message")
  • objEmail.From = "expediteur@expediteur.fr"
  • objEmail.To = "destinataire@destinataire.fr"
  • objEmail.Subject = "Sujet: ce que vous voulez"
  • objEmail.Textbody = "corp du message que vous voulez envoyez"
  • objEmail.Configuration.Fields.Item _
  • ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  • objEmail.Configuration.Fields.Item _
  • ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
  • objEmail.Configuration.Fields.Item _
  • ("http://schemas.microsoft.com/cdo/configuration/sendusername") = login du compte yahoo
  • objEmail.Configuration.Fields.Item _
  • ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = password du compte yahoo
  • objEmail.Configuration.Fields.Item _
  • ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
  • "smtp.yahoo.fr"
  • objEmail.Configuration.Fields.Item _
  • ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  • objEmail.Configuration.Fields.Update
  • objEmail.Send
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "expediteur@expediteur.fr"
objEmail.To = "destinataire@destinataire.fr"
objEmail.Subject = "Sujet: ce que vous voulez" 
objEmail.Textbody = "corp du message que vous voulez envoyez"
objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/sendusername") = login du compte yahoo
objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = password du compte yahoo
objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
           "smtp.yahoo.fr" 
objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send

Conclusion

voila et on evite les spam par cette méthode
 

Commentaires et avis

signaler à un administrateur
Commentaire de Zlub le 22/07/2005 01:41:00

hum... faire bosser les serveurs yahoo pour envoyer ces email, c'est pas top ! Surtout dire de créer un compte dans cette optique c'est pas tres bô ... mais bon

signaler à un administrateur
Commentaire de tekila_bandita le 22/07/2005 08:38:48

C'est possible d'envoyé des mails via le smtp yahoo?



sinon il me semble qu'un vbs du meme type à déja été déposé...

7/10

signaler à un administrateur
Commentaire de keaoner le 22/07/2005 10:36:38

ca dépend vous que les fournisseur d'accès verifie IP du poste qui envois le mail
cela peut etre une solution pour ceux qui veulent envoyer un mail sans cette limitation.

oui cela fonctionne je l'ai testé

signaler à un administrateur
Commentaire de MaxSoldier le 24/07/2005 01:26:47

Même si c'est sûr que ce n'est pas super top sur le principe, le code n'est pas mauvais. Je mets 8/10

signaler à un administrateur
Commentaire de tekila_bandita le 17/08/2005 16:39:35

Il me semble que l'envoi de mail via serveur smtp ou autre ne marche que sur le serveur de son fournisseur internet, car, je suis chez free et c'est le seul qui marche avec moi...

En plus, je préise que les adresse d'expediteur doivent etre semblable a de vrais adresse, pour les ptits rigolos qui s'en serven comme mail bomber...

signaler à un administrateur
Commentaire de hugo_lskieur le 06/11/2005 16:02:44

je donne un 8/10 a cette source car elle marche mais l'inconvenient est quil faut posseder un compte yahoo mail.
Et j'aimerai savoir si l'on peut envoyer des données rentrer dans un inputbox par exemple:
a=inputbox("quel age as tu?")
et que sa nous envoyer ce quelle a mit comme reponse?????
merci d'avance

signaler à un administrateur
Commentaire de tekila_bandita le 09/11/2005 14:26:31

Bien sur que tu peux envoyer des données inputbox et meme tout autre type de données textes...
Pour cela tu enregistre le texte ou la lecture d'un fichier ou autre dans une variable et ensuite ça marche aussi simplement que avec les msgbox...

signaler à un administrateur
Commentaire de paipes le 10/11/2005 12:05:51

bonjour,
je voudrais utiliser ce script avec mon serveur SMTP local et avec mes authentifiant vers une liste des correspondant, es ce possible de rajouter des Inputbox pour ces options !!!!!!
(je suis un débutant en scripting)

signaler à un administrateur
Commentaire de tekila_bandita le 07/12/2005 15:00:40

bien sur, tu enregistre les identifiants dans un tableau de variable et tu envoi le message à l'aide d'une boucle for...

signaler à un administrateur
Commentaire de tekila_bandita le 07/12/2005 15:02:19

bien sur, tu enregistre les identifiants dans un tableau de variable et tu envoi le message à l'aide d'une boucle for...

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Mail SMTP par WINSOCK [ par mcroteau ] J'ai présentement un problème. J'utilise Winsock pour envoyer des mails. Si j'envoie le mail par un serveur Exchange, la date d'envoie n'est pas la bo envoyer mail smtp avec fichier attaché [ par vlej3008 ] Tout est dans le titre..Ce que je souhaiterai, c'est envoyer un mail en smtp (ça je sais séjà le faire), mais avec un fichier attaché (format texte, p authentification SMTP [ par PatDeLaYaute ] Bonjour,je suis en train de faire un formulaire d'envoi de mail à partir de mon projet.Le problème pour envoyer le mail j'utilise le serveur de l'hebe Envoyer un email en choisissant l'expéditeur [ par GigaCool ] Bonjour à tous , J'ai un ptit souci . J'ai developpé une application d'envoi de message aux agent d'une banque , messages relatif à leur conso télépho comment envoyer un formulaire vers un mail @yahoo @homail ... [ par hastalavista ] bonjour tout le monde,ca fait un mois que je suis sur la recherche d'un code permettan d'envoyer des informations des machines client "formulaire remp emailing vb2005 [ par medclubiste ] salut tout le mondeSOS SOS , j'ai vraiment besoin de votre aide c'est une question de vie ou de mort pour moi, en fait je developpe une application po aucun code d'envoi de mail ne marche chez moi [ par hastalavista ] bonjour,j'ai telecharger tout les codes VB6 sur ce site pour l'envoi d'un mail via smtp (plus que 40 code) mais aucun d'eux ne marche; enfin je pense recherche service web pour envoyer mail [ par djmic ] bonjour à tous,je suis à la recherche d'un service Web pour envoyer des mails. Est-ce que quelqu'un aurait un bon site qui propose des services web po M'envoyer un mail lorsqu'il y a une réponse à cette discussion. [ par fiko81 ] Bonsoir,Bugg où pas en fait j'en sait rien mais la fonction "M'envoyer un mail lorsqu'il y a une réponse à cette discussion." qui est présente sur cha [VB2005] Envoyer un mail par MAPI [ par EXCLUSIF ] Bonjour,Peut-on en VB2005 envoyer un mail en utilisant MAPI sans utiliser msmapi.ocx ? Y'a til une classe dans le Fx 2.0 qui gère ça ?MerciLudo


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version


Call of Duty 4: Modern Warfare pour Windows
Entre 55€ et 55€


Visiter le guide achat

Photothèque Nouveau !

Photo sitges beachPhoto alphabet langue des sourds
Photo cascades de plitvicePhoto femme, plage, bien être, soleil, vacances, été, détente, repos

Visiter la photothèque


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
Temps d'éxécution de la page : 0,983 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.