Discussion :

[Archampi]

Bonjour,

J'utilise CDO pour envoyer des courriels et cela fonctionne parfaitement... sur mon poste, à la maison. Mais si je fais rouler le même code chez mon frère (qui possède le même ordi et utilise la même version de Windows et d'Office), rien ne marche.

Si j'avais un message d'erreur, ça me donnerais une idée du problème mais non, aucun message d'erreur; le programme roule comme si tout était parfait mais rien n'est envoyé.

J'ai vérifié la présence de la librairie cdosys.dll sur son poste et tout est ok.

Alors là je ne sais plus... j'ai besoin de vos lumières.

Merci à l'avance.

[alsimbad]

salut
peut etre qu'un des parametres n'est pas bon, mais vérifie d'abord que tu n'as pas un "on error resume next" qui traine dans ton code, c'est peut etre ce qui empeche un eventuel message d'erreur de s'affficher

[Archampi]

Vérification faite, aucun "on error resume next" ne traîne dans le code.

J'ai cru un instant qu'il aurait fallu ajouter la référence à "Microsoft CDO for Windows 2000 Library". Mais sur mon poste, cette librairie n'est pas référencée et je n'ai pas le problème. J'ai alors demandé à mon frère de l'ajouter sur le sien espérant avoir mis le doigt sur son problème car, bien que Outlook soit installé sur son poste, il ne l'utilise pas, ni Outlook Express d'ailleurs; il utilise le client fourni par son employeur via une application sur le Web.

Mais même après avoir ajouté la référence à "Microsoft CDO for Windows 2000Library", le problème est resté le même.

Nous avons exécuté le code pas à pas et aucun message d'erreur n'apparaît. Comme si tout allait bien sauf que le courriel ne part jamais.

Serait-il possible de vérifier le résultat de l'exécution de Cdosys.dll ? Cela pourraît nous aiguiller sur la bonne piste.

[Archampi]

Voici le code que j'utilisais:

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
 
Const CDO = "http://schemas.microsoft.com/cdo/configuration/"
 
Set objConfig = CreateObject("CDO.Configuration")
With objConfig.Fields
    If Serveur = "" Then
        .Item(CDO & "SendUsingMethod") = 1
        .Update
    Else
        .Item(CDO & "SendUsingMethod") = 2
        .Item(CDO & "SMTPServer") = Serveur
        .Item(CDO & "SMTPServerPort") = 25
        .Item(CDO & "SMTPConnectionTimeout") = 20
        .Item(CDO & "SMTPAuthenticate") = 1
        .Item(CDO & "SendUserName") = Usager
        .Item(CDO & "SendPassword") = MotPasse
        .Update
    End If
End With

Or les chaînes de caractères qui sont ajoutées à la suite de "CDO" sont en fait une partie d'une adresse Internet et donc devraient être toutes en minuscules.

Aussi simple que cela puisse paraître, le problème fut résolu en utilisant plutôt:

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
 
Const CDO = "http://schemas.microsoft.com/cdo/configuration/"
 
Set objConfig = CreateObject("CDO.Configuration")
With objConfig.Fields
    If Serveur = "" Then
        .Item(CDO & "sendusing") = 1
        .Update
    Else
        .Item(CDO & "sendusing") = 2  '.Item(CDO & "SendUsingMethod") = 2
        .Item(CDO & "smtpserver") = Serveur
        .Item(CDO & "smtpserverport") = 25
        .Item(CDO & "smtpconnectiontimeout") = 20
        .Item(CDO & "smtpauthenticate") = 1
        .Item(CDO & "sendusername") = Usager
        .Item(CDO & "sendpassword") = MotPasse
        .Update
    End If
End With

Merci pour votre participation