Script vbs - envoi d'email
h.sabatou
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
Utilisateur anonyme -
Utilisateur anonyme -
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.
Voici mon script :
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 ?
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:
- Script vbs - envoi d'email
- Script vidéo youtube - Guide
- Vbs windows - Accueil - Optimisation
- Comment creer un compte email - Guide
- Mas script - Accueil - Windows
- Programmer envoi sms - Guide
6 réponses
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
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
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
@+
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
@+
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
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
Je viens d'essayer sans cette ligne
bizarre, comme si le script ne connaissais CDO.message
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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 !!
C'est uniquement quand il est lancer en temps qu'action depuis pdfcreator qu'il me genere cette erreur !!
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 :
Cdt
Lupin
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