ISOrgMember.SubTypeCode

Description

The code of the sub type associated with the organisation node.

Syntax

object.SubTypeCode

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

Restriction: This property is readonly.

Return Value

string

Example

Display the name of the selected organisation node, its sub type and sub type code.

Dim aFilter
Dim aOrgMember
Dim aOrgMembers
Dim aSubType
Dim aMessage

Set aFilter = Profile.CreateOrgMembersFilter
set aOrgMembers = Profile.LoadOrgMembers(aFilter)

aMessage = "Org Nodes Count = " & aOrgMembers.Count
for each aOrgMember in aOrgMembers
  aMessage = aMessage & vbNewLine & "-------------------------" & vbNewLine & _ 
    "ORGANISATION NODE:  " & aOrgMember.Name & vbNewLine &_
    "SUB TYPE CODE:  " & aOrgMember.SubTypeCode

  set aSubType = aOrgMember.SubType
  if not aSubType is nothing then
    aMessage = aMessage & vbNewLine & "SUB TYPE:  " & aSubType.Description
  end if       
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Sub Type Code cannot be found.

Version information

Added in v7.8.0