The code used to refer to the external provider.
object.Code
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISExternalProvider interface |
string
Display the code used to refer to the external provider.
Dim aExtProvider
Dim aCode
Dim aMessage
aCode = "JT"
Set aExtProvider = Profile.LoadExternalProvider(aCode)
if aExtProvider.ID = 0 then
aMessage = "No external provider with the specified code"
else
aMessage = aMessage & vbNewLine &_
"Full Name:" & vbTab & "Code:" & vbNewLine & vbNewLine &_
aExtProvider.FullName & vbTab & aExtProvider.Code
end if
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Code can be found in
.