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...
Afficher les 13 commentaires