Bonjour,

Je suis dans actuellement dans une impasse, j'ai construis une application qui envoie des mails automatiquement quand j'execute l'application(F5 sous Visual Studio) tous marche nikel. Sauf que quand je compile le projet et quand j'installe mon msi et que je lance l'appli j'ai le message suivant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
      erreur d'execution -2147220973 (80040213)
      transport échoué dans sa connexion au serveur


le code que j'utilise pour l'envoie des mails est le suivant:

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
21
22
23
24
 
Dim couriel As CDO.Message
Dim config  As CDO.Configuration
 
Set couriel = New CDO.Message
Set config = New CDO.Configuration
 
With config.Fields
       .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = CDO.cdoSendUsingPort
      .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "serveur_smtp"  'nom du serveur pas l'adresse ip 
      .Update
End With
 
 
With couriel
  Set .Configuration = config
  .From = AdrMail
End With
 
couriel.To = listdest  ' liste des adresses mails des destinataires (separées par des ";" )
 
couriel.TextBody = corp
couriel.Subject = sujet
couriel.Send

je vous signale que l'adresse mail de l'envoyeur n'est pas gerée par le serveur smtp precisé dans le code precedent ni les adresse mails destinataires, peut etre que c'est ça qui pose probleme!!? Je verrai ça.

Sinon si quelqu'un est deja passé par cette experience ou qu'il a simplement une idée de l'origine de l'erreur je suis preneur. Merci d'avance