ISProvider.Supervisor

Example

Display the full name of the person that will act as supervisor for the provider.

Dim aFilter 
Dim aProviders
Dim aProvider
Dim aSupervisor
Dim aMessage

Set aFilter = Profile.CreateProvidersFilter
aFilter.Category = 2 'pcProvider 
set aProviders = Profile.LoadProvidersByFilter(aFilter)

aMessage = aMessage & vbNewLine &_
  "The number of the providers is " & aProviders.Count

for each aProvider in aProviders
  set aSupervisor = aProvider.Supervisor
  if aSupervisor is nothing then 
    aMessage = aMessage & vbNewLine & aProvider.FullName &_
      " has no assigned supervisor"
  else
    aMessage = aMessage & vbNewLine & aProvider.FullName &_
      " has " & aSupervisor.FullName & " as a supervisor"
  end if  
next
 
Profile.MsgBox (aMessage)