Discussion :

[lixil]

Bonjour,

j'ai donné l'accès à un dossier outlook à des collègues.

Dans ce dossier, il y a un roulement de sous dossier. de nouveaux sous dossiers sont créés et d'autres sont supprimés.

Pour que les collègues puissent voir les sous dossiers, je dois à chaque fois leur autoriser l'accès.

Je souhaiterais via VBA, autoriser l'accès aux nouveaux sous dossier créé.

Est-ce que vous sauriez comment procèder ou me donner des pistes ?

En vous remerciant par avance.

[Nain porte koi]

Hello,

Pas vraiment une réponse, ça n'est pas possible d'autoriser le dossier principal et que les sous dossiers héritent des autorisations du parent ?

[lixil]

Bonjour,
Ce serais en effet la solution la plus pratique ! mais je n'ai pas trouvé comment faire. Je ne pense pas que ce soit possible dans ce cas

[joe.levrai]

Bonjour,

à ma connaissance, il n'est pas possible de travailler sur les permission en utilisant VBA nativement.


Il faut passer par la librairie Redemption qui dispose de fonctionnalités à ce sujet

[lixil]

Bonjour,

J'ai réussi à créer les autorisations d'accès via la bibliothèque rédemption.
Merci pour votre aide !

[EChampart]

Bonjour,

Pourriez-vous, svp, donner le code que vous avez utiliser pour attribuer des droits d'utilisateurs à des dossiers outlook?
Je partage avec mes collègues des dossiers et sous dossiers de ma boite aux lettres et la configuration est assez fastidieuse. Les dossiers sont au même niveau que boite de réception, Brouillons, ...

Merci

[lixil]

Bonjour,

Ci-dessous un exemple de code qui fonctionne sur ma machine

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
27
Sub Accorder_Acces_Dossier_Outlook()
 
Dim RDOFolder As RDOFolder2
Dim Session As RDOSession
Dim AddressEntry As RDOAddressEntry
Dim ACE As RDOACE
Dim k As Integer, tot As Integer
 
    Set Session = CreateObject("Redemption.RDOSession")
    Session.Logon
 
    Set Folder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Parent.Folders("NOM")
 
    k = 0
    For Each var_folder In Folder.Folders
        Set RDOFolder = Session.GetFolderFromPath(var_folder.FolderPath)
        Set AddressEntry = Session.AddressBook.GAL.ResolveName("ADRESSE MAIL")
        Set ACE = RDOFolder.ACL.Add(AddressEntry)
        ACE.Rights = RIGHTS_NONE
        ACE.CanCreateItems = True
        ACE.CanCreateSubFolders = True
        ACE.CanEditAll = True
        ACE.CanEditOwn = True
        ACE.CanReadItems = True
        k = k + 1
    Next
End Sub