Sujet Précédent Sujet Suivant

ENVOIE D'UN MAIL VIA LE SERVEUR SMTP DE YAHOO

Zlub Messages postés 809 Date d'inscription mercredi 11 octobre 2000 Statut Membre Dernière intervention 29 septembre 2010 - 22 juil. 2005 à 01:41
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

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/32822-envoie-d-un-mail-via-le-serveur-smtp-de-yahoo

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

cs_paipes Messages postés 1 Date d'inscription jeudi 10 novembre 2005 Statut Membre Dernière intervention 10 novembre 2005
10 nov. 2005 à 12:05

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)

tekila_bandita Messages postés 248 Date d'inscription mercredi 15 juin 2005 Statut Membre Dernière intervention 15 mars 2007 33
9 nov. 2005 à 14:26

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

hugo_lskieur Messages postés 5 Date d'inscription jeudi 22 septembre 2005 Statut Membre Dernière intervention 6 novembre 2005
6 nov. 2005 à 16:02

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

tekila_bandita Messages postés 248 Date d'inscription mercredi 15 juin 2005 Statut Membre Dernière intervention 15 mars 2007 33
17 août 2005 à 16:39

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

MaxSoldier Messages postés 289 Date d'inscription dimanche 10 août 2003 Statut Membre Dernière intervention 28 février 2009 2
24 juil. 2005 à 01:26

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

keaoner Messages postés 3 Date d'inscription dimanche 23 janvier 2005 Statut Membre Dernière intervention 22 juillet 2005
22 juil. 2005 à 10:36

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é

tekila_bandita Messages postés 248 Date d'inscription mercredi 15 juin 2005 Statut Membre Dernière intervention 15 mars 2007 33
22 juil. 2005 à 08:38

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

Zlub Messages postés 809 Date d'inscription mercredi 11 octobre 2000 Statut Membre Dernière intervention 29 septembre 2010 8
22 juil. 2005 à 01:41

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

Discussions similaires

Comment récupérer le taux de conversion d'une devise

Erreur du serveur dans l'application '/'

Envoi de mail en TLS par Gandi, quelle fonction?

[ERREUR] envoi mail vb

serveur smtp

Votre réponse

Discussions similaires