RDOAddressList object

 

RDOAddressList object represents an Address List with its child address entries and subcontainers.

Returned by:

AddressBook.DefaultAddressList, PAB, GAL, GetAddressListFromID

RDOAddressBookSearchPath.Item

RDOAddressLists.GetFirst, GetLast, GetNext, GetPrevious, Item

 

The example below logs to the default MAPI session and displays the number of address entries in GAL (Exchange only):

set Session = CreateObject("Redemption.RDOSession")
Session.Logon
set GAL = Session.GAL

MsgBox GAL.AddressEntries.Count


Derived from: _MAPIProp -


_MAPIProp methods and properties: GetIDsFromNames, Fields(), GetPropList, GetNamesFromIDs, CopyTo, Save, MAPIOBJECT, Session

 


Properties


EntryID

string, read-only. Hex representation of the address list entry id.

 

AddressEntries

Returns RDOAddressEntries collection representing the child address entries

see example above

AddressLists

Returns RDOAddressLists collection representing the child address lists

 

Default

Boolean, read-write. Determines whether the address list is displayed first when the address book window opens.

 

Name

String, read-write. The name of the address list

 

IsReadOnly

Boolean, read-only. Determines whether the address list is modifiable.

 

Methods


GetContactsFolder

Returns RDOFolder object corresponding to the given address list.

This method is only available for the address lists returned by the Outlook Address Book (OAB) provider that uses "IPM.Contact" messages (corresponding to the RDOContactItem object) as its storage. Other providers (e.g. GAL) will return NULL from this method.

set Session = CreateObject("Redemption.RDOSession")
Session.MAPIOBJECT = Application.Session.MAPIOBJECT
set AddrList = Session.AddressBook.AddressLists.Item("Contacts")
if not (AddrList is Nothing) Then
  set Folder = AddrList.GetContactsFolder
  if not (Folder is Nothing) Then
    MsgBox "Contacts folder contains " & Folder.Items.Count & _
    " entries, the corresponding OAB container contains " & _
    AddrList.AddressEntries.Count & " entries"
  End If
End If

ResolveName(Name)

Resolves a given name against the address list. Returns AddressEntry object

set Session = CreateObject("Redemption.RDOSession")
Session.MAPIOBJECT = Application.Session.MAPIOBJECT
set Contacts = Session.AddressBook.AddressLists.Item("Contacts")
set AdrrEntry = Contacts.ResolveName("dmitry")

MsgBox AdrrEntry.Address