Each of the organisation nodes within the collection.
object.Item(Index)
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISOrgMembers interface |
|
Index |
In, Required | int |
The index of the organisation node |
Display each of the organisation nodes within the collection.
Dim aFilter
Dim aOrgMember
Dim aOrgMembers
Dim aMessage
Set aFilter = Profile.CreateOrgMembersFilter
set aOrgMembers = Profile.LoadOrgMembers(aFilter)
aMessage = "The number of the org nodes is " & aOrgMembers.Count & ":"
for i = 0 to aOrgMembers.Count - 1
set aOrgMember = aOrgMembers.Item(i)
aMessage = aMessage & vbNewLine & (i + 1) & ") " & aOrgMember.Name
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Organisation Nodes can be found in
.