Discussion :

[PoZZyX]

Bonjour,
Je fais une base de données qui doit envoyer une centaine de mail différents automatiquement. Si je passe par outlook, il y a pour chaque envoi une fenetre ou il faut attendre 5 secondes puis appuyer sur oui.

J'ai essayé de passer directement par Exchange avec le code suivant mais j'obtiens l'erreur : Le message n'a pas pu etre envoyer vers le serveur SMTP...

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
 
Dim mail As CDO.Message
Set mail = CreateObject("CDO.Message")
mail.From = "sdf@asdf.com" 'mon adresse
mail.To = "sdffd@sadf.com" 'mon adresse
mail.Subject = "Sujet du message"
mail.TextBody = "Texte du Message."
mail.Configuration.Fields.Item(cdoSendUsingMethod) = cdoSendUsingPort
mail.Configuration.Fields.Item(cdoSMTPServer) = "asdf" 'Mon serveur exchange
mail.Configuration.Fields.Item(cdoSMTPConnectionTimeout) = 10
mail.Configuration.Fields.Item(cdoSMTPAuthenticate) = cdoBasic
mail.Configuration.Fields.Item(cdoSendUserName) = "asdf" 'mon login
mail.Configuration.Fields.Item(cdoSendPassword) = "fasd" 'mon mot de passe
mail.Configuration.Fields.Item(cdoURLGetLatestVersion) = True
 
mail.Configuration.Fields.Update
 
mail.Send
 
Set mail = Nothing

Est-ce que j'utilise le bon code pour passer via exchange ???

Merci d'avance pour vos réponse.

[fix105]

j'ai fait un copier coller de ton code, et cela fonctionne chez moi,

en faite j'avais également posté un message sur ce forum pour savoir quoi.
On m'a repondu d'utiliser une référence que je ne connaissais pas, apparement tu l'utilises aussi sinon CDO.Message ne fonctionnerai pas.
Enfin tous ca pour dire que quand j'utilise ton code avec mes infos cela fonctionne.

[PoZZyX]

Quelles sont les références a mettre ???

parce que j'ai mis Microsoft CDO 1.21 Library et Microsoft CDO for windows 2000 library

Est-ce correct ???

[fix105]

la deuxieme seulement
Mais j'ai un probleme pour la mise en forme de mon mail
les différents choix pour le retour chariot ne fonctionne pas

[fix105]

bon ben finalement en faisant mail.HtmlBody , et en mettant un <Br> cela fonctionne tres bien

[PoZZyX]

Merci de ton aide mais j'ai toujours une erreur sur le .send :
Le transport a échoué dans sa connexion au serveur

Une idée ?

[fix105]

bo je ne m'occupe pas personnellement du serveur exchange donc je ne sais pas , peut etre y a t'il un problème a cet endroit ....

[PoZZyX]

ok ce n'est pas moi qui m'en occupe non plus, et les personnes qui en ont la charge ne sont pas la pour le moment, on verra

Merci pour ton aide en tout cas

[Taoueret]

On m'a repondu d'utiliser une référence que je ne connaissais pas, apparement tu l'utilises aussi sinon CDO.Message ne fonctionnerai pas.

Justement, c'est la mon problème. Le createObject("CDO.message") ne crée rien... POurtant, j'ai la référence de miscrosoft CDO for windows Librairy d'activée. Quelles autres références dois-je activer???
Merci