ISProfile.CreatePrivateRoleLoadParam

Description

This function creates the parameter for loading private roles.

Syntax

object.CreatePrivateRoleLoadParam()

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface

Return Value

ISPrivateRoleLoadParam

Return the parameter for loading private roles.

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

Added in v7.8.0