Probleme d'execution de vbscript

Version imprimable

Bonjour,

j'ai un vbscript qui permet de lancer deux macros vb developpez pour Outlook 2003. Le script appel deux fonctions de Outlook qui lancées depuis le module de dev marche tres bien.
Par contre le script lui marche mais de des fois impossible que celui ci marche, je ne comprends absolument rien. Les deux fois que cela me le fait c'est quand je me delogue de mon poste... De plus j'ai réussi une fois a le refaire mais je ne sais même pas comment j'ai fait 8O

Voici le script :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 '############## DEBUT ############### 'Date : 07 juillet 2007 'Lance une macro d'OUTLOOK quand celui ci est ouvert Dim theApp, theNameSpace, theMailItem Set theApp = WScript.CreateObject("Outlook.Application") On error resume next 'ici on lance la macro d'exportation des contacts et du calendrier d'OUTLOOK Call theApp.ExportContacts Call theApp.ExportCalendar set theApp = Nothing Set theNameSpace= Nothing Set theMailItem= Nothing '############## FIN ##############################"
Je tiens a préciser que pour qu'il puisse fonctionner Outlook doit bien evidemment être deja lancer.

Lorsque je vais dans la ligne de commande dos je lance le script est rien ne se passe...

S'il vous plait help me !!! Merci pour votre aide.

07/08/2007, 11h14
ced600

Enlève la ligne :

Code:

On error resume next

Relance ton script et dit nous si une erreur est généré, et tant qu'à faire donne nous la description de l'erreur.
Cette ligne de code permet au script de continuer à s'exécuter même quand il y a une erreur, c pratique pour éviter que le script s'arrête en cas d'erreur mais c moyen pour débuguer.
07/08/2007, 11h33
ylabarre

Merci pour ton aide :)

En effet j'ai bien une erreur!

la voici :

Script : C\Temp\Export.vbs
Ligne : 10
Caract. : 1
Erreur : Cet objet ne gère pas cette propriété ou cette méthode: 'ExportContacts'
Code : ....
SOurce : Erreur d'execution Microsoft VBscirpt

C'est incroyable qu'il me dise qu'il ne reconnait pas ma fonction ExportContact car celle ci se nomme bien comme ça dans mon module de dev Outlook. Et le pire c'est que pourtant le script fonctionnai deja avant :(
Je n'y comprend rien!!
07/08/2007, 12h07
ced600

Je pense que cette ligne ne marche pas :

Code:

Set theApp = WScript.CreateObject("Outlook.Application")

Elle ne crée pas ton objet. essaye :

Code:

Set theApp = CreateObject("Outlook.Application")
07/08/2007, 12h19
ylabarre

Malheureusement ton idée ne fonctionne pas. :cry: j'ai la même erreur.

Je ne sais pas trop quoi faire. Est ce dû a mon projet sous Outlook mal déclaré ou je ne sais quoi ?
De plus peut etre est ce du au fait que pour créer le .vbs je créer un nouveau document texte que je renomme en .vbs et l'ouvre avec le bloc notes pour y mettre le code (insertion de caractere sans m'en rendre compte lors de l'enregistrement) ?
07/08/2007, 16h35
SfJ5Rpw8
à priori ... on contraire d'excel le VBA d'outlook ne connaît pas la méthode Run qui pourrai te permettre le lancement d'une macro ....

que contiennent tes 2 macros :
Code:

1 2 3 Call theApp.ExportContacts Call theApp.ExportCalendar
ne peu-tu pas déplacer ce code dans le .VBS..?
07/08/2007, 16h53
ced600
Bien que non expert en Outlook et ne pouvant affirmer ce qui suis, je pense que ExportContacts et ExportCalendar sont deux fonctions proposé par Outlook et non des macros.

Citation:

De plus peut etre est ce du au fait que pour créer le .vbs je créer un nouveau document texte que je renomme en .vbs et l'ouvre avec le bloc notes pour y mettre le code (insertion de caractere sans m'en rendre compte lors de l'enregistrement) ?

J'ai toujours fait cela et je n'ai jamais eu de problème lié à cela.

J'ai déjà eu ce type d'erreur lorsque l'objet n'est pas créé, peut rajouter ceci après le

Code:

Set theApp = WScript.CreateObject("Outlook.Application")

Code à rajouter :
Code:

1 2 3 If (theApp is Nothing) Then msgbox "Objet non créé" End If
07/08/2007, 17h10
SfJ5Rpw8

Citation:

Envoyé par ced600

Bien que non expert en Outlook et ne pouvant affirmer ce qui suis, je pense que ExportContacts et ExportCalendar sont deux fonctions proposé par Outlook et non des macros.....

non je pense pas ... j'ai Outlook sur mon PC, j'ai fait ALT-F11, F2 rechercher

:arrow: "Éléments introuvables"
;)
07/08/2007, 17h18
ced600

Ok et puis j'avais oublié cette phrase :

Citation:

j'ai un vbscript qui permet de lancer deux macros vb developpez pour Outlook 2003

:aie:

Citation:

Envoyé par bbil

à priori ... on contraire d'excel le VBA d'outlook ne connaît pas la méthode Run qui pourrai te permettre le lancement d'une macro ....

que contiennent tes 2 macros :

Code:

1
2
3
 
Call theApp.ExportContacts
Call theApp.ExportCalendar

ne peu-tu pas déplacer ce code dans le .VBS..?

Merci encore pour vos réponses.

N'étant pas expert en vb :) je me suis adapté au langage pour pouvoir faire mes fonctionnalités donc je n'ai aucune notion de comment faire pour mettre mon code Outlook dans le vbscript.

voici mon code pour ExportContacts (cette fonction utilises également un module de classe ) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Public Sub ExportContacts()
   'This code allow to export in a file all contacts
   'Created by Yannick Labarre 2007-06-26
   Dim myLocation As String
   Dim contactIndex As Integer
   Dim myRacine As String
   Dim contContact As Outlook.ContactItem
 
   myRacine = "C:\Temp\"
   myLocation = myRacine & Environ("username") & "_contacts.xml"
   Dim cContact As New Contact
 
   'Let user select a folder to export
   Set nms = Application.GetNamespace("MAPI")
   Set fld = nms.GetDefaultFolder(olFolderContacts)
 
   lngCount = fld.Items.Count
 
   'Open the file
   Open myLocation For Output As #2
 
  'Iterate through contact items in Contacts folder, and export a few fields
  'from each item to a row in the Contacts object
    For contactIndex = 1 To lngCount
         Set contContact = fld.Items.Item(contactIndex)
 
         'Save data into the object
         cContact.title = contContact.title
         cContact.first_name = contContact.FirstName
         cContact.last_name = contContact.LastName
         cContact.job_title = contContact.JobTitle
         cContact.company_name = contContact.CompanyName
         cContact.business_telephone_number = contContact.BusinessTelephoneNumber
         cContact.business_fax_number = contContact.BusinessFaxNumber
         cContact.mobile_telephone_number = contContact.MobileTelephoneNumber
         cContact.business_address_city = contContact.BusinessAddressCity
         cContact.business_address_country = contContact.BusinessAddressCountry
         cContact.business_address_postal_code = contContact.BusinessAddressPostalCode
         cContact.business_address_street = contContact.BusinessAddressStreet
         cContact.email_address = contContact.Email1Address
 
         cContact.service = contContact.Department
 
         'Write the row of the contact into the output file
         cContact.EcrireXML
   Next
   Close #2
End Sub

Le module de classe pour ExportContacts :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
 
Public title As String
Public first_name As String
Public last_name As String
Public job_title As String
Public company_name As String
Public business_telephone_number As String
Public business_fax_number As String
Public mobile_telephone_number As String
Public email_address As String
Public service As String
Public business_address_city As String
Public business_address_country As String
Public business_address_postal_code As String
Public business_address_street As String
 
Public Sub EcrireXML()
    Print #2, "<titre>" & title & "</titre><prenom>" & first_name & "</prenom><nom>" & last_name & "</nom><fonction>" & job_title & "</fonction><compte>" & company_name & "</compte><telephone>" & business_telephone_number & "</telephone><telephonefax>" & business_fax_number & "</telephonefax><telephonemobile>" & mobile_telephone_number & "</telephonemobile><email>" & email_address & "</email><service>" & service & "</service><ville>" & business_address_city & "</ville><pays>" & business_address_country & "</pays><codepostal>" & business_address_postal_code & "</codepostal><rue>" & business_address_street & "</rue>";
    Print #2,
End Sub

Comment devrais s'écrire le fichier .vbs dans ce cas ?

08/08/2007, 11h14
ylabarre

Je crois avoir trouvé la réponse.
En effet le code complet des fonction ExportContacts et ExportCalendar se trouvant dans le fichier thisOutlookSession je n'avais pas mit de fonctionnalités du genre Application_startup etc... dés que j'ai mis une des fonctions dedans le script se lance sans soucis, je ne comprends absolument rien.
N'y a t'il pas une autre solution plus propre par exemple mettre mon code dans un module Outlook et l'appeler sans pb ?

Quoi qu'il en soit maintenant cela semble plus du coté du forum VB Outlook que du script vbs.

Merci encore pour votre aide. A+