Script vbs - envoi d'email

Fermé
h.sabatou Messages postés 4 Date d'inscription vendredi 3 février 2012 Statut Membre Dernière intervention 3 février 2012 - 3 févr. 2012 à 11:18
 Utilisateur anonyme - 3 févr. 2012 à 18:47
Bonjour,

J'ai un script qui me permet d'envoyer un document scanné depuis Pdf Créator automatiquementen piece jointe à l'utilisateur.
L'imprimante pdf créator est géré par le serveur (windows server 2008)
Lorque je teste ce script sur XP il fonctionne correctement.
Des que je le lance sur server 2008 il me génére une erreur.
Script : C:\Program Files\etc.
Ligne : 27
Caract. : 1
Erreur: Bibliothèque non inscrite.
Code : 8002801D
Source : (null)


Voici mon script :
Option Explicit
Const AppTitle = "PDFCreator - EmailSend"
'
Dim objArgs
Set objArgs = WScript.Arguments
'
If objArgs.Count = 0 Then
	 MsgBox "This script needs a parameter!", vbExclamation, AppTitle
	 WScript.Quit
else
	 msgbox "Arg 0 : " & objArgs(0) & vbcrlf & _
	 		"Arg 1 : " & objArgs(1) & vbcrlf & _
	 		"Arg 2 : " & objArgs(2)
End If
'
Dim objMessage
Set objMessage = CreateObject("CDO.Message")
'objMessage.Subject = "Création du fichier Pdf : " & objArgs(0)
objMessage.Subject = "Création du fichier Pdf : " 
objMessage.From = "PdfCreator_server@domaine.net" 
objMessage.To = objArgs(1) & "@domaine.net" 
objMessage.TextBody = "Bonjour, le fichier " & objArgs(0) & " a été généré par PdfCreator sur ZEUS. " & vbcrlf & _
					"depuis la machine : " & objArgs(2) & "."
'
objMessage.AddAttachment objArgs(0)
'
'==This section provides the configuration information for the remote SMTP server.
'==Normally you will only change the server name or IP.
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
'
'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.40.1"
'
'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
'
objMessage.Configuration.Fields.Update
'
'==End remote SMTP server configuration section==
'
objMessage.Send


Le pire est que j'utilise des script identique a celuil la pour m'envoyer des emails apres une sauvegarde auto depuis windows server 2008 et ca marche.

Quelqu'un a t-il une idée ?

A voir également:

6 réponses

Utilisateur anonyme
3 févr. 2012 à 15:22
Bonjour,

Je suspecte que l'argument est incomplet :

objMessage.AddAttachment objArgs(0)


objArgs(0) doit contenir le nom du fichier, mais aussi le chemin d'accès !


objArgs(0) = "C:\Document\DossierX\monfichier.pdf"

et non juste :

objArgs(0) = "monfichier.pdf"


Cdt

Lupin
0
h.sabatou Messages postés 4 Date d'inscription vendredi 3 février 2012 Statut Membre Dernière intervention 3 février 2012
3 févr. 2012 à 15:38
En fait j'avais tester ce parametre car je pensais aussi que ca venais de la, mais en fait le chemain est bien renseigné dans le passage des arguments ; c'est d'ailleurs pour ca que j'ai mis une msgbox au debut du script qui afficheles arguments.
Par ailleurs j'ai aussi mis en commentaire la ligne "attachment" pour tester et il y aussi le message d'erreur qui intervient des la ligne
objMessage.Subject 


@+
0
Utilisateur anonyme
3 févr. 2012 à 16:01
re:

Quand je compare avec mon script ...

La ligne :
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

pourrait être de trop, car le port pourrait avoir été modifié, surtout pour
un serveur.

Cdt

Lupin
0
h.sabatou Messages postés 4 Date d'inscription vendredi 3 février 2012 Statut Membre Dernière intervention 3 février 2012
3 févr. 2012 à 16:10
Je viens d'essayer sans cette ligne
objMessage.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
J'obitens le meme message "Bibliothèque non inscrite" ligne 27 qui correspond a
objMessage.Subject = "Création du fichier Pdf : " 
soit la premiere utilisation de l'objet
objMessage

bizarre, comme si le script ne connaissais CDO.message
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
h.sabatou Messages postés 4 Date d'inscription vendredi 3 février 2012 Statut Membre Dernière intervention 3 février 2012
3 févr. 2012 à 16:21
En fait je viens de tester le script sur le serveur directement a partir d'une fenetre cmd en ligne de commande et je m'apercois que le script fonctionne aussi.
C'est uniquement quand il est lancer en temps qu'action depuis pdfcreator qu'il me genere cette erreur !!
0
re:

J'ai rencontré ce type de problème, il s'agit d'un droit d'accès.

Verifie que ton "user" PdfCreator a les droits nécessaires
dans le groupe d'ActiveDirectory pour l'exécution de cette tâche.

Dans L'AD, il y a des groupes et pour chaque groupe des ressources.

L'exécution de cette tâches est une ressources.

Dans mon script, l'ordre est différent, je ne crois pas que cela fasse une
différence mais enfin, voici l'ordre :

With objMail 
 .From = cteAdresseSource 
 .To = sDestination 
 .Subject = msgTitre 
 .TextBody = msgTexte 
 .Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.0.1" 
 .Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
 .Configuration.Fields.Update 
 .AddAttachment ( sPieceJointe) 
 .Send 
End With 


Cdt

Lupin
0