This function returns the short code by the specified ID.
object.LoadShortCode(aShortCodeID)
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProfile interface |
|
aShortCodeID |
In, Required | int |
ID of the short code |
Display the code and its description.
Dim aShortCode
Dim aMessage
Set aShortCode = Profile.LoadShortCode(551)
if aShortCode.ID = 0 then
aMessage = "There is no short code with the specified ID"
else
aMessage = aShortCode.Description & " (" & aShortCode.Code & ")"
end if
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface ID cannot be found, but Short Codes can be found in
.