Discussion :

[Théolude]

Bonjour,

Toujours dans l'objectif d'extraire les agendas d'exchange et d'en exporter le contenu dans un applicatif extérieur je suis en train de développer un script en VBS qui sera censé scanner les comptes de tous les utilisateurs, se connecter à leur agenda et exporter au format texte les rendez-vous des 15 prochains jours.

Je suis néophyte en VBS, à force de documentation j'ai pondu ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim objCdoPerson
Dim objCdoAppointment
Dim iMailBox
Dim iAppointment
Dim strCalendarUrl
 
strURL = "mailto:xxxxxxxxxxx@xxxxxxxxxx.xxx"
Set objCdoPerson = CreateObject("CDO.Person")
Set iMailBox = objCdoPerson.GetInterface("IMailbox")
Set objCdoAppointment = CreateObject("CDO.Appointment")
 
objCdoPerson.DataSource.Open strURL
 
WScript.Echo "URL du calendrier " & iMailBox.Calendar
 
Set strCalendarUrl = iMailBox.Calendar
Set iAppointment = objCdoAppointment.GetInterface("IMailbox")
 
iAppointment.DataSource.Open strCalendarUrl

C'est un premier test, qui consiste à me connecter un compte déterminé et à tenter de me connecter à son agenda. Je récupère bien iMailBox.Calendar dans WScript.Echo.

Par contre il me fait une erreur sur Set strCalendarUrl = iMailBox.Calendar ... Objet Requis: '[string: "file://./backoffices/"]', code d'erreur 800A01A8 ... Je ne comprends pas cette erreur alors qu'il m'affiche très correctement la valeur complète de strCalendarUrl juste avant !!

Merci de votre aide.

Théo

[Théolude]

... J'ai été un peu vite à poster avant de tenter un peu plus.

Voici la nouvelle version de mon script:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim objCdoPerson
Dim objCdoAppointment
Dim iMailBox
Dim iAppointment
Dim strCalendarUrl
 
strURL = "mailto:administrateur@terre-et-decor.com"
Set objCdoPerson = CreateObject("CDO.Person")
Set iMailBox = objCdoPerson.GetInterface("IMailbox")
Set objCdoAppointment = CreateObject("CDO.Appointment")
 
objCdoPerson.DataSource.Open strURL
 
WScript.Echo "URL du calendrier " & iMailBox.Calendar
 
Set iAppointment = objCdoAppointment.GetInterface("IAppointment")
iAppointment.DataSource.Open iMailBox.Calendar

Il me fait toujours une erreur , dernière ligne (donc toujours avec l'url du calendrier), ID de colonne non valide, 80040E1, Source CDO.Appointment.1 ... Pour moi c'est du chinois, qu'est ce qui ne va pas dans mon code?

Merci de votre aide.

[ced600]

Que te renvois normalement calendar ? un chemin vers un calendrier ?

Si c le cas, peux tu essayer dans ta dernière ligne de remplacer iMailBox.calendar par une string représentant le chemin complet vers un calendrier ? Puis par le chemin que te renvois iMailBox.calendar (en dur en string) ?
Cela permettra de déterminer à quel niveau cela merde : chemin du calendrier faux, iAppointment.DataSource.Open mal utilisé, ...

[Théolude]

Que te renvois normalement calendar ? un chemin vers un calendrier ?

Oui

Si c le cas, peux tu essayer dans ta dernière ligne de remplacer iMailBox.calendar par une string représentant le chemin complet vers un calendrier ? Puis par le chemin que te renvois iMailBox.calendar (en dur en string) ?
Cela permettra de déterminer à quel niveau cela merde : chemin du calendrier faux, iAppointment.DataSource.Open mal utilisé, ...

OK. La chaîne récupérée est du type:
file://./backofficestorage/xxxxxxxxxxxxx.com/MBX/yyyyyyyyyyyy/Calendrier
Où xxxxxx est le nom de domaine du serveur, et yyyyy un identifiant utilisateur.

Quand je test avec cette chaîne directement, ça me renvoie la même erreur. Ce serait donc:
1. Ou l'appel de la méthode que je fais n'importe comment, et je dois lui donner un autre argument (??? help !! )
2. Ou mon appel à objCdoPerson qui pour une raison obscure me renvoit n'importe quoi...

Pour infos le path file://./backofficestorage/xxxxxxxxxxxxx.com/MBX/yyyyyyyyyyyy/Calendrier ne correspond à rien sur le serveur...

Théo

[Théolude]

J'ai été voir là:
http://msdn.microsoft.com/en-us/libr...EXCHG.65).aspx
et aussi là:
http://msdn.microsoft.com/en-us/libr...EXCHG.65).aspx

Apparemment ils utilisent un objet ADODB pour trouver l'url de connexion... Je ne connais pas ADODB, quelques tuyaux?

Je vais essayer de faire quelque chose à partir du script cité au dessus... histoire de. Mais ils spécifient quand même:

Note The URLs in the preceding table are only examples. You should not construct them manually in your application. You can retrieve all of the URLs in a user's localized mailbox folder by using the IMailBox Interface on a Collaboration Data Objects (CDO) Person object or by retrieving properties, such as the inbox Field or calendar Field, on the base mailbox folder.

Je suis perplexe...


Théo

[ced600]

Perso je n'ai jamais piloté exchange, mais j'ai trouvé des meilleurs lien sur le site MSDN :

1. L'utilisation de la méthode Open de l'interface IDataSource.
2. L'interface ImailBox.
3. Modifying Objects Using CDOEX and ADO.

Dans le premier lien regarde notement le dernier exemple (du VBS).