Bonjour,

J'utilise pas mal la fonction CDO pour envoyer des mails a partir de serveurs.
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
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