W2K3 - Probleme VBS et Planificateur de tâche

Question

Bonjour,


Alors j'utilise la methode CDO pour envoyer un mail quotidien de rapport, le seul hic c'est que le script VBS fonctionne très bien quand je l'execute manuellement, parcontre dès que j'essaie de l'executer par le plannificateur des taches windows l'état reste En cours d'execution et rien ne se passe. Si qq'un a une idée je suis prenneur
Merci bien.


Le script 
        
With CreateObject("CDO.Message")
        .From="[mailto:****@***.com ****@***.com]"
        .To="[mailto:***@***.com ***@***.com]"
        .Subject="[STARBOX] Copie des fichiers 'eudm_4* ' : OK"
        .TextBody="Compte rendu du transfert Starbox ETL du "&amp;dateday&amp;VbNewLine
        .AddAttachment("D:\Starbox\logs\etl\maillog.txt")
        On Error Resume Next
        .Send
        If Err Then MsgBox "Le message n'a pas pu être expédié."
        On Error GoTo 0
        End With

cs_JMO · Answer

Bonjour à tous....

Il manque la déclaration du smtp.

With CreateObject("CDO.Message")
.From="[mailto:xxxx@yyyyy.fr xxxx@yyyyy.fr]"
.To="[mailto:xxxx@yyyyyy.fr xxxx@yyyyyy.fr]"
.Subject="test message automatisé avec pièce jointe"
.TextBody="coucou !!!" 
.AddAttachment("D:	est.txt")



.Configuration.Fields.Item ("
http://schemas.microsoft.com/cdo/configuration/sendusing
") = 2
.Configuration.Fields.Item ("
http://schemas.microsoft.com/cdo/configuration/smtpserver
") = "smtp.wanadoo.fr" 'pour exemple
.Configuration.Fields.Item ("
http://schemas.microsoft.com/cdo/configuration/smtpserverport
") = 25
.Configuration.Fields.Update
On Error Resume Next
.Send
If Err Then MsgBox "Le message n'a pas pu être expédié."
On Error GoTo 0
End With







jean-marc

drachos · Answer

Dans le cas que je cite, non il ne manque pas la déclaration du SMTP

Sur mon serveur W2K3 j'ai activé dans IIS un serveur SMTP virtuel qui est utilisé par la methode CDO :p

cs_JMO · Answer

Re,

Je viens de tester avec tâche planifiée (domaine/user + pssw):
- sur W2000 ok
- sur XP ok.

As-tu essayé avec mailto (c-à-d. sans passer par CDO) ???

jean-marc

drachos · Answer

Oui je n'ai le problème que sur W2K3

drachos · Answer

J'ai résolu mon problème

En fait c'est bien la declaration du SMTP qu'il manque pour que le script fonctionne correctement sous Windows 2003 avec le planificateur de tâche.

Comme la dit JMO il faut rajouter les 4 lignes suivantes 
.Configuration.Fields.Item (" http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Addresse IP du serveur SMTP" 
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update

Le script fonctionne sans sauf pour une execution automatique par le planificateur de tâche.
C'est bizzard mais bon :p

Merci pour les réponses

cs_JMO · Answer

Re,

Un petit coup de valider (le bouton qui rend tout vert) pour me motiver.....

Objet = Replace(Fic, ".html", " ")
Objet = Replace(Fic, "Controle", "Contrôle")
Objet = Replace(Objet, " ", "%20") 
Objet = Replace(Objet, "-", ":")   
Dest1 = "[mailto:xxxx@yyyyy.fr xxxx@yyyyy.fr]"


avec mailto (mais moins fiable)

Msg="Bonjour," & vbCrLf & vbCrLf & "Ci-joint le fichier """ &_
      Replace(Fic,"Controle","Contrôle") & """," &vbCrLf& "ainsi que....."
Msg=Escape(Msg) 
WshShell.Run "mailto:" & Dest1 & "?subject=" & Objet & "&body=" & Msg 
WScript.Sleep(4000) 
WshShell.SendKeys "{F10}if" & "C:	est.txt" &"{ENTER}"
' ou WshShell.SendKeys "%(if)" & myFichier & "{ENTER}"
WScript.Sleep(1000) 
WshShell.SendKeys "%(s){ENTER}, True"

....jean-marc

W2K3 - Probleme VBS et Planificateur de tâche

6 réponses

Votre réponse

Discussions similaires