This function returns the external provider by code.
object.LoadExternalProvider(aCode)
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProfile interface |
|
aCode |
In, Required | string |
The code of the provider |
Display the full name of the external provider returned by the specified code.
Dim aExProvider
Dim aMessage
Set aExProvider = Profile.LoadExternalProvider("AHKIG")
if aExProvider.ID = 0 then
aMessage = "There is no external provider with the specified code"
else
aMessage = aExProvider.FullName
end if
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface External Provider can be found in
.