Retrieve/list all my delegates and their permissions all at once

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi,

Is it possible to retrieve/list all my delegates and their permissions at
once using vba/vbs? For example, could I extract all the information and
publish in Excel? I am not sure if VBA would allow me to do this, OR there
are some other ways?

Thanks in advance!
 
On the Extended MAPI level (can't do that in VBA or even VB), you will need
to open the PR_EMS_AB_PUBLIC_DELEGATES property is IMAPITable, then reads it
rows.
Outlook Object Model or CDO 1.21 do not expose this functionality.

<plug>
Redemption exposes that list through the RDOAddressEntry.Delegates
collection. The sample script below resolves a name against GAL and prints
out the names of all the delegates.
In your case you probably need to replace the line
set AddressEntry = Session.AddressBook.GAL.ResolveName("dmitry")
with
set AddressEntry = Session.CurrentUser
to access the current user (you) as RDOAddressEntry object.

set Session = CreateObject("Redemption.RDOSession")
Session.MAPIOBJECT = Application.Session.MAPIOBJECT 'Outlook 2002 and up
set AddressEntry = Session.AddressBook.GAL.ResolveName("dmitry")
Debug.Print "-- Delegates (who can send of behalf of " & AddressEntry.Name
& ")"
for each AE in AddressEntry.Delegates
Debug.Print AE.Name
next

</plug>

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
 
Back
Top