Discussion :

[JeromeR]

Bonjour,

j'ai réusi a recuperer les rdv d'outlook avec un objet AppointmentItem ... j'arrive par exemple a récupérer la date, l'heure, le sujet ...

La ou je bloque c'est que je n'arrive pas a récupérer le(s) contact(s) avec qui le RDV a été pris.

C'est pour cela que je demande votre aide.

Merci pour toutes les pistes ou bout de code que vous pouriez me donner.

@+

[SilkyRoad]

bonjour

si le contatct a été notifié dans l'onglet planification

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim olApp As Outlook.Application
Dim olNs As NameSpace
Dim olFldr As MAPIFolder
Dim olApt As AppointmentItem
 
Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")
Set olFldr = olNs.GetDefaultFolder(olFolderCalendar)
 
For Each olApt In olFldr.Items
Debug.Print olApt.RequiredAttendees
Next olApt

bonne journée
michel