This function creates the filter for loading organisational members.
object.CreateOrgMembersFilter()
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProfile interface |
Display the number of the organisational members and their names.
Dim aFilter
Dim aOrgMember
Dim aOrgMembers
Dim aMessage
Set aFilter = Profile.CreateOrgMembersFilter
aFilter.Code = "AUTO13"
set aOrgMembers = Profile.LoadOrgMembers(aFilter)
aMessage = "Org Members Count = " & aOrgMembers.Count
for i = 0 to aOrgMembers.Count - 1
set aOrgMember = aOrgMembers.Item(i)
aMessage = aMessage & vbNewLine & "The name of the organisational member is " &_
aOrgMember.Name
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Org Members can be found in
.