[VBA-O]lire les rendez vous outlook [Résolu]

[LostIN]

Bonjour

petite question qui me coince:
je voudrais pouvoir récupérer les rendez vous outlook sur une période donnée.

Avez-vous une petite idée de la manière de procéder ?
Si oui, est il possible de le faire pour un autre utilisateur (exchange 2003 et client outlook 2003)?

merci et bonne soirée

[LostIN]

voila un début de reponse:

Code :

1
2
Set objOLrdv = olknamespace.GetDefaultFolder(olFolderCalendar)
Set objItemRdv = objOLrdv.Items.GetFirst

et ensuite on peut accéder par ex à :

Code :

1
2
3
MsgBox objItemRdv.Duration
MsgBox objItemRdv.Start
MsgBox objItemRdv.Subject

et user du .getnext

le pb, c'est que le getfirst me récupére le premier (en même temps c normal !) rendez vous dans mon planning (donc ca remonte à loin).
je voudrais pouvoir lui dire de récupérer les rendez vous uniquement à partir d'une date donnée ou d'une période.

[LostIN]

quoique le getnext me donne un rendez vous 6 mois plus tard alors qu'entre temps il y a en eu.

???

[SilkyRoad]

bonjour

Tu peux essayer pour Outlook

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim OlApp As New Outlook.Application
Dim OlMapi As Outlook.NameSpace
Dim OlFolder As Outlook.MAPIFolder
Dim OlItems As Outlook.Items
Dim OlAppointment As Outlook.AppointmentItem
 
Set OlMapi = OlApp.GetNamespace("MAPI")
Set OlFolder = OlMapi.GetDefaultFolder(olFolderCalendar)
Set OlItems = OlFolder.Items
 
For Each OlAppointment In OlItems
        With OlAppointment
            Debug.Print .Subject 'sujet
            Debug.Print .Start 'début
            Debug.Print .End 'fin
            Debug.Print .RequiredAttendees 'convoqués
            Debug.Print .OptionalAttendees 'invités
            Debug.Print .Location 'lieu
        End With
Next OlAppointment

michel

[LostIN]

merci bcp ca marche mieux
sauf que
je n'ai pas tout les rdv
et je voudrais partir d'une date donnée.


tu vois ?

merci de ta réponse

[LostIN]

si ca interesse qqun.
voila ce que j'ai trouvé

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim OutlApp As New Outlook.Application
Dim OutlMapi As Outlook.NameSpace
Dim OutlFolder As Outlook.MAPIFolder
Dim OutlItems As Outlook.Items
Dim OutlAppointment As Outlook.AppointmentItem
'
Dim datedebut As String
datedebut = "20/03/2007"
'
Set OutlMapi = OutlApp.GetNamespace("MAPI")
Set OutlFolder = OutlMapi.GetDefaultFolder(olFolderCalendar)
Set OutlItems = OutlFolder.Items
 
'
Set OutlAppointment = OutlItems.Find("[Start] >= '" & datedebut & "'")
'
 
While TypeName(OutlAppointment) <> "Nothing"
  MsgBox OutlAppointment.Subject
 
  Set OutlAppointment = OutlItems.FindNext
Wend