Forum - Questions générale - Sujet n°628

[]
Nombre de membres 1 membre
Connectés : ( personne )
 

La Charte du Forum - La Charte du Forum

Forum - Forum
Questions générale - Questions générale


clos par 3Stone le 11/11/2012 : 15:18  Sujet n° 628  too many connections avec envoi email via CDO

le 02/10/2012 : 08:56
par flomen

Anonyme

visiteur

Bonjour, J'envoiedes mails avec CDO, le code fonctionne mais lorsque je veux envoyer un nombreimportant de mail (200)  il se plante: Lemessage n'a pas pu être envoyé vers le serveur SMTP. Le code d'erreur de  transport était 0x800ccc67. Laréponse du serveur était 421 4.7.0 sfrf2516.sfr.fr Error: too many connections Sij’utiliser smtp.gmail.com je n’ai pas de souci, j’ai le problème avec smp.sfr.fr.Est-ceun problème chez SFR ou dois-je adapter le code VBA ?  Merci
Ecrire à flomen  sujet clos  Haut

[]   

Réponse n° 1
--------
le 02/10/2012 : 13:47
par 3Stone

Anonyme

Administrateur

Bonjour,

Cela semble indiquer que tu dépasse le nombre de connexion "ouverte".

Quel est le code que tu utilise ?

Cordialement


3stone

  clos par 3Stone le 11/11/2012 : 15:18  Haut
Réponse n° 2
--------
le 03/10/2012 : 19:50
par flomen

Anonyme

visiteur
Bonjour,
Ci-dessous, le code que j'utilise pour envoyer des mails. Dans le paramètre Dest je regroupe 20 destinataires (séparation par un ;). Le problème arrive quand j'envoie le mail à environ 400 destinataires, ce qui fait que j'appelle 20 fois de suite cette procédure.
Function EnvoiMail(Dest As String, Sujet As String, Texte As String) As StringDim Cdo_Message As New CDO.messageOn Error GoTo ErrWith Cdo_Message    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mail1@sfr.fr"    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.sfr.fr"    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxx"    .Configuration.Fields.Update    .From = "mail1@sfr.fr"    .TextBody = Texte    .Subject = Sujet    .To = Dest    .SendEnd WithSet Cdo_Message = NothingExit Function
Err:
    MsgBox " Erreur: " & Err.DescriptionEnd Function
Salutations
  clos par 3Stone le 11/11/2012 : 15:18  Haut
Réponse n° 3
--------
le 05/10/2012 : 02:38
par 3Stone

Anonyme

Administrateur

Bonjour,

Le code semble correct...

Entre deux appels, essaie en ajoutant quelques "DoEvents", mais sans garantie.

Cordialement


3stone

  clos par 3Stone le 11/11/2012 : 15:18  Haut
Réponse n° 4
--------
le 06/10/2012 : 17:10
par flomen

Anonyme

visiteur
Bonjour,Cela ne change rien, je confirme, ça marche très bien avec un smtp.gmail.comCertainement un contrôle plus sévère chez SFR  !
Merci

Cordialement
  clos par 3Stone le 11/11/2012 : 15:18  Haut
actif sujet actif   clos sujet clos   Important! Important!   Nouveau Nouveau message   -   Rectifier Rectifier message   Clôturer Clôturer sujet   Remonter Remonter
[]
Catégories de discussion  Forum 



Haut