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

W

whatamatch

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!
 
D

Dmitry Streblechenko

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
 
Top