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