Liste de toutes les boîtes aux lettres qu'un utilisateur a chargées dans Outlook

Question

J'essaie de répertorier les boîtes aux lettres partagées d'un utilisateur. Nous avons un environnement mixte, certains sont mappés automatiquement via Exchange, d'autres non (autorisations de groupe de sécurité). Je souhaite ajouter un script Powershell au processus de connexion pour enregistrer toutes les boîtes aux lettres qu'un utilisateur a chargées dans Outlook. Je veux enregistrer cette liste dans un fichier texte ou csv.

Je suis en mesure d'obtenir les noms grâce à $outlook.getnamespace("mapi"). Cependant, certains noms ont changé et l'Outlook de l'utilisateur ne montre pas ces changements, donc ce nom ne veut rien dire lorsqu'il est lancé à Exchange ou AD, mais fonctionne toujours comme par magie.

J'ai besoin de quelque chose de plus concret, samaccountname ou adresse smtp .. quelque chose comme ça.

EDIT

J'ai continué à travailler à cela, et avec l'aide de MFCMAPI j'ai pu déterminer que je dois la propriété PR_USER_NAME. J'ai besoin de faire cela avec vanilla Powershell pour fonctionner sur un système client (et j'ai des milliers donc l'installation de EMS n'est pas une option).

Answer 1

Utilisez la collection Namespace.Stores. MFCMAPI affiche les objets MAPI auxquels vous ne pouvez pas accéder dans PS. Pour voir les objets du modèle objet Outlook en direct, utilisez OutlookSpy (il affiche à la fois les objets MAPI et MOO).

MISE À JOUR: Si l'utilisation de Redemption est une option, vous pouvez utiliser RDOExchangeMailbox. Owner propriété:

skPstAnsi = 1 
    skPstUnicode = 2 
    skPrimaryExchangeMailbox = 3 
    skDelegateExchangeMailbox = 4 
    skPublicFolders = 5 
    set Session = CreateObject("Redemption.RDOSession") 
    Session.MAPIOBJECT = Application.Session.MAPIOBJECT 
    for each Store in Session.Stores 
    'for i = 1 to Session.Stores.Count 
    'set Store = Session.Stores(i) 
    Debug.Print Store.Name 
    If (Store.StoreKind = skPrimaryExchangeMailbox) or (Store.StoreKind = skDelegateExchangeMailbox) Then 
     Debug.Print Store.Owner.SmtpAddress 
    End If 
    Debug.Print " ------ " 
    next