Envoi de mail par la commande CDO

Version imprimable

Bonjour,

J'utilise pas mal la fonction CDO pour envoyer des mails a partir de serveurs.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 SIZE="2"]Set wshShell = WScript.CreateObject( "WScript.Shell" ) Set objEmail = CreateObject("CDO.Message") ' On crée un objet message objEmail.From = "email emeteur" objEmail.To = "email reception" objEmail.Subject = "sujet du mail" objEmail.Textbody = "Texte dans le corps du mail" objEmail.Fields.Item("urn:schemas:httpmail:importance") = 2 objEmail.AddAttachment("Piece jointe") objEmail.Fields.Update 'On met a jour les champs objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'On choisi la methode d'envoi objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Serveur Exchange" ' On donne ici le serveur SMTP objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'On donne la le port du serveur smtp objEmail.Configuration.Fields.Update 'mise a jour des champs objEmail.Send ' Envoi du mail
Je suis avec un compte admin du serveur mais aussi admin du partie de domaine ( c'est possible ? ) .... bref cela fonctionne tres bien tant que je reste sur des emails en interne.

Des que je souhaite ecrire a l'exterieur ca ne passe pas !!!!

Est ce une restriction sur le serveur exchange ? sur des firewall ?

Auriez vous une astuce pour contourner cela ?

Merci

PS : Je fais parti d'une 'grande' structure en terme de reseau ( societe international ) ..... je n'ai pas la main sur tout

23/09/2011, 16h51
Aniki

Citation:

Envoyé par bigfoot75

... bref cela fonctionne tres bien tant que je reste sur des emails en interne.

Des que je souhaite ecrire a l'exterieur ca ne passe pas !!!!

Tu veux dire que en utilisant la même config (même serveur, même user) tu ne peux envoyer de mails sur un autre serveur de mail ?

Tu envoies le mail à quelle adresse ?

Edit : je viens de voir que tu n'utilises pas le mode Authentication.
Les serveurs de mail apprécient pas trop ce genre de mail et les bloques en général (trop de spam sinon).
Essaie avec le mode Authentication.
23/09/2011, 17h30
bigfoot75

Citation:

Envoyé par Anikinisan

Tu veux dire que en utilisant la même config (même serveur, même user) tu ne peux envoyer de mails sur un autre serveur de mail ?

Tu envoies le mail à quelle adresse ?

Edit : je viens de voir que tu n'utilises pas le mode Authentication.
Les serveurs de mail apprécient pas trop ce genre de mail et les bloques en général (trop de spam sinon).
Essaie avec le mode Authentication.

Pardon, je vais expliquer le contexte -

J'ai ecris un vbs afin de verifier la presence de fichiers - je fais tourner ca sur le serveur de fichiers avec une tache planifié

Le script test si les fichiers sont et envoi un rapport sur mon email pro ( prenom.nom@nomdedomaine.com ) - Le serveur n'a pas de suite office , le script tourne en arriere plan , nuit et jour , weekend .....

Il fonctionne parfaitement depuis des mois.

Je voudrais ajouter quelqu'un dans le mail, mais il a un email externe ( @free.fr ) - et cela ne fonctionne pas.

Je ne connais pas ce mode ' authentification ' - tu pourrais m'en dire plus ?! :)

Merci :)

Citation:

Envoyé par bigfoot75

Je ne connais pas ce mode ' authentification ' - tu pourrais m'en dire plus ?! :)

En fait, ça permet d'utiliser un compte du serveur smtp pour envoyer des mails.
Les serveurs n'acceptent presque plus les mails envoyés sans utiliser le mode avec authentification (pour éviter le spam).

Donc sur ton serveur exchange, tu créées un compte si tu n'en a pas.
Ca devrait ressembler à ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Set wshShell = WScript.CreateObject( "WScript.Shell" )
Set objEmail = CreateObject("CDO.Message") ' On crée un objet message
 
objEmail.From = "mon_email@mon_domaine.com" 'remplir par l'adresse email associée au compte utilisé pour la connection au serveur SMTP - SINON CA RISQUE DE NE PAS MARCHER
objEmail.To = "email reception"
objEmail.Subject = "sujet du mail"
objEmail.Textbody = "Texte dans le corps du mail"
objEmail.Fields.Item("urn:schemas:httpmail:importance") = 2 
objEmail.AddAttachment("Piece jointe")
objEmail.Fields.Update 'On met a jour les champs
 
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'On choisi la methode d'envoi 
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Serveur Exchange" ' On donne ici le serveur SMTP
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'On donne la le port du serveur smtp
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdo.cdoSMTPAuthenticate 'mode "Authenticate"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Username" ' Identifiant du compte
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Password" ' Mot de passe du compte
objEmail.Configuration.Fields.Update 'mise a jour des champs
objEmail.Send ' Envoi du mail

PS: va voir ici, ils en parlent aussi.

Citation:
Envoyé par Anikinisan
En fait, ça permet d'utiliser un compte du serveur smtp pour envoyer des mails.
Les serveurs n'acceptent presque plus les mails envoyés sans utiliser le mode avec authentification (pour éviter le spam).

Donc sur ton serveur exchange, tu créées un compte si tu n'en a pas.
Ca devrait ressembler à ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Set wshShell = WScript.CreateObject( "WScript.Shell" ) Set objEmail = CreateObject("CDO.Message") ' On crée un objet message objEmail.From = "mon_email@mon_domaine.com" 'remplir par l'adresse email associée au compte utilisé pour la connection au serveur SMTP - SINON CA RISQUE DE NE PAS MARCHER objEmail.To = "email reception" objEmail.Subject = "sujet du mail" objEmail.Textbody = "Texte dans le corps du mail" objEmail.Fields.Item("urn:schemas:httpmail:importance") = 2 objEmail.AddAttachment("Piece jointe") objEmail.Fields.Update 'On met a jour les champs objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'On choisi la methode d'envoi objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Serveur Exchange" ' On donne ici le serveur SMTP objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'On donne la le port du serveur smtp objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdo.cdoSMTPAuthenticate 'mode "Authenticate" objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Username" ' Identifiant du compte objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Password" ' Mot de passe du compte objEmail.Configuration.Fields.Update 'mise a jour des champs objEmail.Send ' Envoi du mail
PS: va voir ici, ils en parlent aussi.
Merci beaucoup pour ces informations - Grace a l'authentification j'arrive a envoyer sur des emails externes ( avant je ne pouvais pas )

J'ai quand meme un autre soucis ...... Ca marche tres bien sur de l'exchange 2003 - Par contre j'ai un compte de test sur de l'exchange 2010 et la ca marche pas , ni en interne ni en externe.

Je met bien mon nom de domaine \ mon user dans sendusername pourtant.

Problemes connus avec exchange 2010 ????

26/09/2011, 17h05
Aniki

Il faut peut être utiliser une connection sécurisée et utiliser SSL/TLS.
J'ai créé une discution à ce propos ici même (forum vb6). ;)