This function returns the external provider by the specified name.
object.FindExtProviderByName(aName)
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProfile interface |
|
aName |
In, Required | string |
The name of the external provider |
The full name of the external provider and the speciality description.
Dim aExtProvider
Dim aMessage
Set aExtProvider = Profile.FindExtProviderByName("Dr C Radloff")
if aExtProvider is nothing then
aMessage = "There is no provider with the specified name"
else
aMessage = "Full Name: " & aExtProvider.FullName & " " & vbNewLine &_
"Speciality: " & aExtProvider.SpecialtyDescription
end if
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface External Provider can be found in
.