1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Envoie d'un mail via le serveur smtp de yahoo

Envoie d'un mail via le serveur smtp de yahoo

Soyez le premier à donner votre avis sur cette source.

Snippet vu 34 050 fois - Téléchargée 30 fois

Commenter

Contenu du snippet

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 / Exemple : 


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

A voir également

Ajouter un commentaire Commentaires
FRatvks Messages postés 52 Date d'inscription mercredi 12 mars 2003 Statut Membre Dernière intervention 2 octobre 2009
12 mars 2010 à 19:13
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
wilscar Messages postés 1 Date d'inscription dimanche 28 février 2010 Statut Membre Dernière intervention 28 février 2010
28 févr. 2010 à 21:35
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.
camal35 Messages postés 8 Date d'inscription mardi 27 avril 2004 Statut Membre Dernière intervention 1 décembre 2009
1 déc. 2009 à 00:36
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
tekila_bandita Messages postés 248 Date d'inscription mercredi 15 juin 2005 Statut Membre Dernière intervention 15 mars 2007 33
7 déc. 2005 à 15:02
bien sur, tu enregistre les identifiants dans un tableau de variable et tu envoi le message à l'aide d'une boucle for...
tekila_bandita Messages postés 248 Date d'inscription mercredi 15 juin 2005 Statut Membre Dernière intervention 15 mars 2007 33
7 déc. 2005 à 15:00
bien sur, tu enregistre les identifiants dans un tableau de variable et tu envoi le message à l'aide d'une boucle for...
Afficher les 13 commentaires
S'inscrire maintenant

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.

Du même auteur (keaoner)