Bonjour,

Je cherche à créer un code qui liste l'ensemble des calendriers disponible dans outlook, Je cherche à identifier quels sont les calendriers auquel à accès l'utilisateur

Voici le début de mon code
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
20
21
22
23
24
25
26
 
Private Sub Commande28_Click()
Dim myOlApp As Outlook.Application
    Dim myNameSpace As Outlook.Namespace
    Dim ListeRep As Outlook.Folders
 
    Dim Rep As Folder
 
    Set myOlApp = CreateObject("Outlook.Application")
    Set myNameSpace = myOlApp.GetNamespace("MAPI")
 
 
 '   Set myAppointments = myNameSpace.GetDefaultFolder(olFolderCalendar).Items
 
 
    'Set ListeRep = myNameSpace.Folders
  Set ListeRep = myNameSpace.GetDefaultFolder(olFolderCalendar).Folders
 
  MsgBox "" & ListeRep.Count
For I = 1 To ListeRep.Count
 MsgBox "Nom du dossier: " & ListeRep.Item(I).Name
 'MsgBox "Info: " & ListeRep.Item(I).FolderPath
 
Next
 
End Sub