Envoie d'un mail via le serveur smtp de yahoo

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

Du même auteur (keaoner)