Envoie d'un mail via le serveur smtp de yahoo

Soyez le premier à donner votre avis sur cette source.

Snippet vu 33 172 fois - Téléchargée 28 fois

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
-
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
-
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
-
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
8 -
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
8 -
bien sur, tu enregistre les identifiants dans un tableau de variable et tu envoi le message à l'aide d'une boucle for...

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.