RDOAccountOrderList object

 

RDOAccountOrderList collection represents the order of accounts of a given kind (mail, store or address book) returned by the RDOAccounts.GetOrder method.

 

Returned by:

RDOAccounts.GetOrder

 

The example below prints the order of the mail, store and address book accounts

set Session = CreateObject("Redemption.RDOSession")
Session.MAPIOBJECT = Application.Session.MAPIOBJECT
set Accounts = Session.Accounts
'all mail accounts
Debug.Print "Mail Accounts:"
set List = Accounts.GetOrder(2)
for each Account in List
  Debug.Print Account.Name
next
Debug.Print "-----"
'all store accounts
Debug.Print "Stores:"
set List = Accounts.GetOrder(1)
for each Account in List
  Debug.Print Account.Name
next
Debug.Print "-----"
'all address book accounts
Debug.Print "Address Books:"
set List = Accounts.GetOrder(4)
for each Account in List
  Debug.Print Account.Name
next

 

Properties

Methods

 

Derived from: IDispatch

Properties

Item(Index)

Returns an account (RDOAccount) with the given index

Index - integer, 1 through Count

  

Count

Integer, read-only. Returns the number of account in the list.

  

Methods

SetItem(Index, Account)

Set the order of the specified account.

 

Index - integer,1 through Count.

Account - RDOAccount object.

 

 'move an account with a given name to the end of the account list
set Session = CreateObject("Redemption.RDOSession")
Session.MAPIOBJECT = Application.Session.MAPIOBJECT
set Accounts = Session.Accounts
set List = Accounts.GetOrder(2)
for i = 1 to List.Count
  set Account = List.Item(i)
  if Account.Name = "dmitry@dimastr.com" Then
    List.SetItem List.Count, Account
    Exit For
  End If
next