Discussion :

[joe.levrai]

Bonjour,


je cherche la propriété permettant d'ajouter une boite partagée sur un client Outlook (via son DisplayName ou son SMTP ... ou autre chose si besoin)
j'ai testé en vain la méthode AddStore et AddStoreEx, mais ça ne s'applique qu'aux pst


également, est-il possible de parcourir l'ensemble des boites mails partagées pour lesquelles un compte à les autorisation d'accès, quand les boites ne sont pas en automapping et ne sont pas présentes sur le client (les boites n'ont pas été ajoutée sur le compte, ce dernier a simplement obtenu les droits d'accès par les administrateurs)

[Oliv-]

Bonjour,
Il faudra utiliser REDEMPTION

AddDelegateExchangeMailBoxStore


Pour parcourir tes bal partagées tu veux le faire en connaissant leur nom ? où retrouver toutes les bal où tu as des droits ?

[joe.levrai]

Bonjour Oliv-,

je savais que tu m'apporterai des pistes.

j'espérais que le modèle objet Outlook natif pourrait me donner satisfaction sur ce point.

bon, je vais devoir me résoudre à installer Redemption (VM d'entreprise sur laquelle je déploie des outils et services pour plusieurs utilisateurs, je voulais éviter les compléments et autres), au moins je pourrais régler plein d'autres choses ... c'est positif.


Concernant le parcours des bal partagées, à la base je voulais mouliner un array contenant la liste des bal voulues (Par DisplayName ou SMTP).

Mais si on peut parcourir (sans utiliser powershell) la liste des bal sur lesquelles ont les droits ... c'est encore mieux, puisque ça m'évitera de tenir à jour manuellement mes Array de boites.

Faut dire que gérer 450 bal partagées uniquement côté "client", c'est pas toujours évident. Mais on s'y fait.

[Oliv-]

SAlut,
pour la config uniquement en utilisant outlook il faut utiliser les fichiers PRF ou MSP

voir ici un exemple en anglais http://www.howto-outlook.com/howto/deployprf.htm

Je ne sais pas si on peut obtenir la liste des bal sur lesquelles ont a des droits

regarde déjà ce 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
Sub Delegate()
    Set Mysession = CreateObject("Redemption.RDOSession")
    Mysession.MAPIOBJECT = Application.Session.MAPIOBJECT  'reuse MAPI MySession from Outlook
    Set AddressEntry = Mysession.AddressBook.GAL.ResolveName("MON NOM")    
    Debug.Print "-- Delegates (who can send of behalf of " & AddressEntry.Name & ")"
    For Each AE In AddressEntry.Delegates
        Debug.Print AE.Name
    Next
    Debug.Print "-- Is delegate for (can send on behalf of these users)"
    For Each AE In AddressEntry.IsDelegateFor
        Debug.Print AE.Name
    Next
    Debug.Print "-- Is member of the following Dist Lists:"
    For Each AE In AddressEntry.IsMemberOfDL
        Debug.Print AE.Name
    Next
    Debug.Print "-- The following users report to " & AddressEntry.Name
    For Each AE In AddressEntry.Reports
        Debug.Print AE.Name
    Next
End Su