This function returns short codes by their types and Org Structure ID.
object.LoadShortCodes(aType[, aOrgStructureID =
0])
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProfile interface |
|
aType |
In, Required | object |
The type of the short code |
aOrgStructureID |
In, Optional Default value is 0 |
int |
ID of organisational structure |
Display the number of the short codes and their descriptions.
Dim aShortCodes
Dim aShortCode
Dim aMessage
Set aShortCodes = Profile.LoadShortCodes("Life Stage",0)
aMessage = "Short Codes Count = " & aShortCodes.Count
for i = 0 to aShortCodes.Count - 1
set aShortCode = aShortCodes.Item(i)
aMessage = aMessage & vbNewLine & aShortCode.Description
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Short Codes can be found in
.aOrgStructureID
added in
v8.3.0