Outlook shared mailboxok lekérdezése

Outlook shared mailboxok lekérdezése
2019-01-24T08:10:04+01:00
2019-01-28T09:41:24+01:00
2022-10-15T21:40:30+02:00
pekka
Van egy feladatom, amelyben az outlook shared mailboxokhoz hozzáférő usereket kell produkálnom.
Megpróbáltam ezt excel vba-val automatizálni, de nem jutok előre. Tudok user-eket lekérdezni, de a hozzáférést nem tudom megfogalmazni.
Valami ilyesmit csinálok, de nem erre van szükség, esetleg van valakinek ebben tapasztalata?

Public Sub listUsers() Dim myolApp As Outlook.Application Dim myNameSpace As Namespace Dim myAddrList As AddressList Dim myAddrEntry As AddressEntry Dim whoIsThis As String Dim exchUser As Outlook.ExchangeUser Set myolApp = CreateObject("Outlook.Application") Set myNameSpace = myolApp.GetNamespace("MAPI") Set myAddrList = myNameSpace.AddressLists("Global Address List") Dim FullName As String, LastName As String, FirstName As String Dim HomeState As String, PhoneNum As String whoIsThis = "Doe, John" Set myAddrEntry = myAddrList.AddressEntries(whoIsThis) Set exchUser = myAddrEntry.GetExchangeUser If Not exchUser Is Nothing Then FirstName = exchUser.FirstName LastName = exchUser.LastName HomeState = exchUser.StateOrProvince PhoneNum = exchUser.BusinessTelephoneNumber test = exchUser.Alias lista2 = exchUser.Alias myemail = exchUser.Address myemail = exchUser.PrimarySmtpAddress 'etc... End If
End Sub 
Mutasd a teljes hozzászólást!
PowerShell-ben le lehet kérdezni és még ezt találtam, ami console-ban megjeleníti a usereket jogosultságokkal: 
TechNet Office 365 Mailbox Permission InventoryDe hogy egy excelbe ezt hogyan tudnád belerakni, arról fogalmam sincs.
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd