begin process at 2012 02 16 22:24:20
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

VBScript

 > ENVOIE D'UN MAIL VIA LE SERVEUR SMTP DE YAHOO

ENVOIE D'UN MAIL VIA LE SERVEUR SMTP DE YAHOO


 Information sur la source

Note :
6,71 / 10 - par 7 personnes
6,71 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :VBScript Classé sous :mail, yahoo, envoyer, smtp Niveau :Débutant Date de création :21/07/2005 Vu :30 100
Auteur : keaoner

Ecrire un message privé
Commentaire sur cette source (13)
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


 Sources du même auteur

CGI D'AUTHENTIFICATION APACHE À LA VOLÉE (VBS DONC SOUS WIND...
FIREWALL WINDOWS XP SP 2 DESACTIVER LE BLOCAGE DE CERTAINS P...
Toutes les sources de keaoner

 Sources de la même categorie

Source avec Zip Source avec une capture RECHERCHE & SAUVEGARDE DES FICHIERS PAR LEURS EXTENSIONS par hackoo
Source avec Zip Source avec une capture [VBS] SPLASH SCREEN EN VBSCRIPT par hackoo
Source avec Zip Source avec une capture [VBS] GOOGLE EASTER EGGS par hackoo
Source avec Zip Source avec une capture FILE2COMPARE: COMPARAISON DE DEUX FICHIERS LIGNE PAR LIGNE par hackoo
Source avec Zip Source avec une capture [VBS] COMMENT CRÉER UN DOSSIER ET LE PROTÉGER PAR MOT DE PAS... par hackoo
Toutes les sources de la catégorie VBScript

 Sources en rapport avec celle ci

Source avec Zip ENVOI D'UN MAIL ( VORTMAIL) par sitemo
Source .NET (Dotnet) ENVOI SIMPLE DE MAIL EN VB.NET par Senynium X
Source .NET (Dotnet) ENVOIE D'UN MESSAGE E-MAIL À PARTIR DE VOTRE APPLICATION VB.... par michelsto
Source avec Zip EMAIL OCX SMTP par danounouche
Source avec Zip Source avec une capture SMTP POP FTP : ENVOI/RÉCEPTION EMAIL PUIS FTP POUR REDIRECTI... par osmose06

Commentaires et avis

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

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

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é

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

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

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

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

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)

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

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

Commentaire de camal35 le 01/12/2009 00:36:19

Pour moi qui possède un compte yahoo ça ne marche pas car yahoo a mis en place l'autentification j'ai donc changé le code comme ceci (en utilisant "smtp.free.fr") et ça marche parfaitement avec tous les comptes émails vous pouvez essayer, voici le code:
__________________________________
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.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/smtpserver") = _
           "smtp.free.fr"
objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send

Commentaire de wilscar le 28/02/2010 21:35:30

bonjour,
est-ce qu'il y aurait moyen de modifier le code pour qu'il cherche un fichier ou plusieurs sur mon pc et que ça les envois par mail.
merci.

Commentaire de FRatvks le 12/03/2010 19:13:17

SalutWILSCAR,

j'ai repris le tout et mis dans un module et tu masse aussi les Pieces jointes.....c'est pas beau la vie ?



Public Sub Mail(sender As String, dest As String, sujet As String, body As String, Attached As String, smtp_server As String, smtp_port As String)

'cette procedure permet d'envoyer un email

Set objEMail = CreateObject("CDO.Message")
objEMail.From = sender
objEMail.To = dest
objEMail.Subject = subj
objEMail.Textbody = message
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.Subject = sujet
objEMail.Textbody = body
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/smtpserver") = _
           smtp_server
objEMail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = smtp_port

If Attached <> "" Then
    objEMail.AddAttachment (Attached)
End If
      
objEMail.Configuration.Fields.Update
objEMail.Send
End Sub

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

Comparez les prix


Apple iPhone 4 Noir (32 Go)
Entre 1290€ et 1333€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Beautiful woman in a bikini meditating on the beach
Photo DSLR Camera Taking a Photograph of a Sunflower Field 

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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 4,789 sec (4)

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)