[OL-2007] GetFreeBusy methode

[supertotal]

Bonjour à tous,

je souhaiterais utiliser la méthode "GetFreeBusy" au sein d'une macro/procedure outlook 2007.
Cependant, après recherche je ne comprends pas bien son fonctionnement au niveau des informations retournées.

Selon ce que j'ai compris, la méthode prend 2 paramètres obligatoires : la date de départ et l'interval, le troisième est optionnel et permet d'affiner le retour.

Dans la documentation (http://msdn.microsoft.com/en-us/libr...ffice.12).aspx), il est dit que la méthode retourne les informations sur 30 jours et que cela débute à partir de minuit par rapport à la date de départ, je me pose donc les 2 questions suivantes :
- quand je mets "Now" en premier paramètre et 1440 minutes en deuxième paramètre pour connaître la disponibilité sur la journée, comment cela se fait-il qu'en retour j'ai une chaine de 28 caractères avec des statuts qui montrent un changement alors que les 30 prochains jours sont à venir ? Cela me parait incohérent.

- autre point, si je mets un interval de 60 minutes, comment est calculé la disponibilité sachant que dans une heure, on peut s'absenter, revenir ... c'est une moyenne ? Comment est-il possible qu'il n'y ait qu'un seul statut pour un interval de temps ?

Vous trouverez le code de ma macro ci-dessous.

Merci d'avance pour vos réponses.

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
 
Sub getInfoExchange()
 
    Dim colAL As Outlook.AddressLists
    Dim oAL As Outlook.AddressList
    Dim colAE As Outlook.AddressEntries
    Dim oAE As Outlook.AddressEntry
    Dim oExUser As Outlook.ExchangeUser
    Dim FreeBusy As String
    Set colAL = Application.Session.AddressLists
 
    For Each oAL In colAL
        'Address list is an Exchange Global Address List
        If oAL.AddressListType = olExchangeGlobalAddressList Then
            Set colAE = oAL.AddressEntries
            For Each oAE In colAE
                If oAE.AddressEntryUserType = _
                    olExchangeUserAddressEntry Then
                    Set oExUser = oAE.GetExchangeUser
                        Debug.Print ("")
                        Debug.Print (oExUser.Name)
                        Debug.Print (oExUser.OfficeLocation)
                        Debug.Print (oExUser.BusinessTelephoneNumber)
                        FreeBusy = oExUser.GetFreeBusy(Now, 60, True)
                        Debug.Print ("longueur chaine : " & Len(FreeBusy))
                        Debug.Print (FreeBusy)
                End If
            Next
        End If
    Next
 
End Sub