Discussion :

[wilfried_42]

Bonjour à tous

j'ai un problème avec la méthode CDO et je ne comprends pas, je l'utilise au boulot, çà fonctionne, et chez moi çà plante.

l'erreur : Pièce jointe 39413

j'ai bien coché : Microsoft CDO for exange 2000 Library

voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub Send_mail(Obj As String, txt As String, aqui As String, dequi As String)
    Dim CdoMessage As CDO.Message
    Set CdoMessage = New CDO.Message
    With CdoMessage
        .Subject = Obj
        .From = dequi
        .To = aqui
        .CC = ""
        .BCC = ""
        .TextBody = txt
        .Send
    End With
    Set CdoMessage = Nothing
End Sub

Malheureusement , je ne retourne pas au boulot avant 2009

Merci à vous pour vos réponse

Cordialement

[pgz]

Bonjour Wilfried.

Juste une idée : regarde la valeur de la constante cdoSendUsingMethod.
Ca ressemble drôlement à un problème de configuration CDO...

PGZ

[wilfried_42]

salut pgz et merci pour ta réponse

Code :

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

        MsgBox cdoSendUsingMethod

me renvoie

Code :

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

http://schemas.microsoft.com/cdo/configuration/sendusing

je précise la différence de config
au boulot :
Windows 98 (Hé oui ils sont à la rue)
Internet Explorer
Chez moi :
Vista
Google Chrome et actuellement IE8 en navigateur prioritaire (Faisant actuellement un petit site Internet je suis obligé pour la compatibilité)

[pgz]

A mon avis au boulot tu dois avoir par exemple une connection Exchange qui fonctionne.
Chez toi tu veux passer par un serveur SMTP. Il faut reconfigurer.
Regarde cet article qui pourrait bien te donner des idées.

Tu trouveras d'autres articles sur MS A&S.

Cordialement,

PGZ

[wilfried_42]

re:

Je planche, je planche et je ne trouve pas, je suis même retourné au boulot pour voir la différence : je précise donc les différences entre les 2 systems (il en a d'autres)
Au boulot : Windows 98, Excel 2002 (xp standard), ordinateur sous réseau, accès internet Via Intranet, connexion filaire.
Chez moi : Vista, Excel 2002 (Xp Pro), Pas de réseau, Internet Via LiveBox, connexion wifi

au boulot j'ai outlook mais pas chez moi (je vais l'installer) et voir ce que je peux faire.

[pgz]

au boulot j'ai outlook mais pas chez moi (je vais l'installer) et voir ce que je peux faire.

Cela pourrait bien être utile car je crois que CDO travaille avec MAPI.

PGZ

[AlainTech]

La partie importante est là:

Code :

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

1
2
3
4
5
6
7
8
' TODO: Replace with the port that you want to use . It must be the same
' port that the SMTP server is using.
oField = oFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
oField.Value = 25
 
' TODO: Replace with your SMTP server.
oField = oFields("http://schemas.microsoft.com/cdo/configuration/smtpserver")
oField.Value = "<SMTP Server>"

Je ne vois pas, dans ton code, où tu mentionnes ton serveur SMTP.

[wilfried_42]

Bonjour alain, merci à toi pour la réponse

je suis nul en connexion et je n'ai toujours pas réussi à installer Outlook

voici ce que j'ai fait avec ce que tu m'as donné, mais je ne suis même pas certain que j'ai bien mis en place car j'ai toujours la même erreur
(j'ai posté dans le forum outlook pour mon install)

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
25
Public Sub Send_mail(Obj As String, txt As String, aqui As String, dequi As String)
    Dim CdoMessage As CDO.Message
    Set CdoMessage = New CDO.Message
    Dim oField As Field
    With CdoMessage
        Set oField = .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
        MsgBox oField
        oField.Value = 25
        MsgBox oField
 
        ' TODO: Replace with your SMTP server.
        Set oField = .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver")
        MsgBox oField
        oField.Value = "<SMTP Server>"
        MsgBox oField
        .Subject = Obj
        .From = dequi
        .To = aqui
        .CC = ""
        .BCC = ""
        .TextBody = txt
        .Send
    End With
    Set CdoMessage = Nothing
End Sub

[AlainTech]

Code :

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

        oField.Value = "<SMTP Server>"

C'est là que tu dois indiquer quel est ton serveur SMTP.
Le mien est relay.skynet.be
La plupart commencent par smtp.
Je ne connais pas d'exemples en France mais tu devrais trouver quel est le nom du serveur SMTP de ton fournisseur d'accès (FAI en français, ISP en anglais).

Je parie que le tien est smtp.orange.fr

[wilfried_42]

re:

oui c'est bien cela, mais ça ne fonctionne toujours pas, outlook n'est pas encore installé comme il faut, il me manque un renseignement que je dois retrouver, le mot de passe fai (il se trouve dans un carton)... cela faisait longtemps que je n'étais pas allé sur le site de mon fournisseur d'acces...
je vais mettre en délestage pour le moment tant que la liaison outlook n'est pas terminée...

merci à vous tous, je reviendrai pour confirmer...

[AlainTech]

Je suis persuadé que tu n'as pas besoin d'Outlook pour utiliser CDO.