Envoi mail par CDO

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:

---

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 :aie:, je ne retourne pas au boulot avant 2009 :mrgreen:

Merci à vous pour vos réponse

Cordialement

Bonjour Wilfried.

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

PGZ

salut pgz et merci pour ta réponse

Code:

---

MsgBox cdoSendUsingMethod

---

me renvoie

Code:

---

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é)

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

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.

Citation:

---

Envoyé par wilfried_42

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

La partie importante est là:

Code:

---

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.

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):aie:

Code:

---

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

---

Code:

---

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 ;)

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...

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