ISProfile.LoadPrivateRoles

Description

This function returns private roles by the selected parameter.

Syntax

object.LoadPrivateRoles(aParam)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aParam`	In, Required	ISPrivateRoleLoadParam	The object that defines conditions for loading

Return Value

ISRoles

Returns private roles by the selected parameter.

Example

Display the number of the private roles loaded on the basis of the selected parameter and their role names.

Dim aParam
Dim aPrivateRoles, aPrivateRole
Dim aMessage
Dim i

Set aParam = Profile.CreatePrivateRoleLoadParam
aParam.OrgStructureID = Profile.CurrentOrgStructureID
set aPrivateRoles = Profile.LoadPrivateRoles(aParam)

aMessage = "Private Roles Count: "  & aPrivateRoles.Count & vbNewLine 

for i = 0 to aPrivateRoles.Count - 1 
  set aPrivateRole = aPrivateRoles.Item(i)
  aMessage = aMessage & aPrivateRole.RoleName & vbNewLine 
next 

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Private Roles can be found in Organisation > Roles > Privacy rights.

Version information