Discussion :

[valou79]

Bonjour,

Voila le code que j'utilise pour envoyer un mail dans mon application :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
  Set objMail = Server.CreateObject("CDO.Message")
  Set objMailConf = Server.CreateObject("CDO.Configuration")
  objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "nomserveursmtp"
  objMailConf.fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25" 
  objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
  objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mailconnection"
  objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "passwordconnection"
  objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
  objMailConf.Fields.Update 
 
  Set objMail.Configuration = objMailConf
  objMail.From = strSender 
  objMail.To = strRecipients
  objMail.Subject = strSubject 
  objMail.HTMLBody  = strContentType
  objMail.TextBody = strMessage 
  objMail.Fields.Update
  objMail.Send
  Set objMail = Nothing

Voila l'erreur qui est retournée :

2700
CDO.Message.1 error '80040213'

The transport failed to connect to the server.

/fr/commande/coordonneesavis.asp, line 380

La ligne 380 correspond à objMail.Send

J'ai vérifié les paramètres avec les personnes qui possèdent le serveur smtp.

Je ne comprends pas pourquoi cela ne fonctionne pas.
Pour info, l'appli est sur un serveur mutualisé 1&1 et le serveur smtp est ailleurs.

Merci de votre aide,
Valou79

[roro06]

Bonjour

une erreur de login/password, probablement

Vérifie les lignes suivantes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mailconnection" 

 objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "passwordconnection"

(et particulièrement s'il n'y a pas eu inversion)

[valou79]

Merci Roro06, j'ai effctivement inversé username et password mais je dois avoir faire une autre bêtise.
J'ai enlevé les "" autour du port 25 et mis le timeout à 60.
J'ai même mis des adresses mails en dur un texte + petit ...
J'ai ça comme erreur maintenant :

110
CDO.Message.1 error '80040213'

The transport failed to connect to the server.

/fr/commande/coordonneesavis.asp, line 384

Une autre idée !!!

[roro06]

1and1 ne bloquerait pas le port 25, par hasard ?

[valou79]

le smtp n'est pas le serveur de 1&1 c'est un autre hébergeur et c'est eux qui m'ont dit que c'était le port 25 à utiliser.
Que siginifie le chiffre 110 avant le message CDO.Message.1 error '80040213' ?
Il doit bien signifier quelque chose mais je ne trouve pas sur le net.
Quelqu'un sait ?

[Invité]

Salut,

L'erreur 80040213 indique clairement un problème réseau.

D'ailleurs il me semble peu probable qu'un hébergement mutualisé puisse autoriser les connexions à un serveur smtp tierce sur internet.

Je te conseille de contacter le support 1&1 et leur demander si ton application peut se connecter à un serveur tierce sur internet.

[valou79]

Bingo Mygale1978.
Je viens de tel à 1&1 pour ce problème.
Ils m'ont dit que je ne pouvais pas me connecter à un serveur smtp distant.
La seule possibilité est d'utiliser leur serveur smtp avec le port 587.
Je vais créer une adresse mail des test pour voir si cela fonctionne bien.
Je vous tiens au courant.

Bonne journée,
Valou

[Herve_be]

Bonjour,
Je saisis ce fil car j'ai une erreur similaire (même code) pour un utilisateur en particulier alors que plus de 200 autres utilisateurs n'ont pas ce problème.
Voici mon code VB6

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Set ObjSendMail = CreateObject("CDO.Message")
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2  'Send the message using the network (SMTP over the network).
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "send.one.com"
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True  'Use SSL for the connection (True or False)
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1  'basic (clear-text) authentication
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "rudy@rudyv.be"
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mon mot de passe"
ObjSendMail.Configuration.Fields.Update
ObjSendMail.From = "rudy@rudyv.be"
ObjSendMail.To = "rudy@rudyv.net"
ObjSendMail.Subject = Prgm(Index).Caption & " : " & Userid.Text
ObjSendMail.TextBody = ObjSendMail.Subject
 
On Error Resume Next 'Je voudrais qu'une erreur n'empêche pas le programme de continuer, mais j'ai quand même un message d'erreur 80040213
ObjSendMail.Send
Set ObjSendMail = Nothing
On Error GoTo 0

Je suppose que "quelque chose" dans la configuration de cet utilisateur en particulier n'est pas correct mais ne sai soù chercher.
Merci d'avance pour votre aide.