Discussion :

[juliusezar]

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

[juliusezar]

bonjour,

Je viens d'essayer la dll CDONTS pour envoyer mais mail sous VB6, mais j'ai un probleme, en effet à l'execution du projet, j'ai l'erreur suivante et que je ne comprend pas:

Code :

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

1
2
3
4
5
 
  ActivX ne peut creer l'objet 
  'objet crée pour envoyer le mail comme ceci:
  Dim mail As CDONTS.NewMail
  Set mail = CreateObject("CDONTS.NewMail")

[lp38]

Mets juste ça:

Code :

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

  Dim mail As New CDONTS.NewMail

Mais je ne saurais que trop te conseiller d'utiliser aspemail à la place; c'est gratuit et ça se trouve ici: www.aspemail.com. Avec CDONTS certains de mes emails n'arrivaient jamais à destination.

[juliusezar]

Bonjour,


Merci de votre reponse mais meme avec la modification que tu m'as proposée j'ai toujours la meme erreur en sortie. Je ne vois pas quelle peut etre l'origine du probleme???!!!