Script vbs - envoi d'email

Question

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 ?

Configuration: Windows XP / Internet Explorer 8.0

Utilisateur anonyme · Answer

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

h.sabatou · Answer

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 

@+

Utilisateur anonyme · Answer

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

h.sabatou · Answer

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

h.sabatou · Answer

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 !!

Utilisateur anonyme · Answer

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

Script vbs - envoi d'email

6 réponses

Discussions similaires

Newsletters