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
Partager