ISProvider.GetAreasOfInterest

Description

This function returns the provider's areas of interest.

Syntax

object.GetAreasOfInterest()

Part	Attribute	Type	Description
`object`	Required	ISProvider	The `object` always implements the ISProvider interface

Return Value

ISCollection

Returns the areas of interest of the provider.

Example

Display the provider's areas of interest.

Dim aFilter 
Dim aProviders
Dim aProvider
Dim aAreasOfInterest, aAreaShortCode
Dim aMessage, aAreasInfo

Set aFilter = Profile.CreateProvidersFilter
aFilter.Category = 2 'pcProvider  

set aProviders = Profile.LoadProvidersByFilter(aFilter)

for each aProvider in aProviders
  set aAreasOfInterest = aProvider.GetAreasOfInterest
   
  aMessage = aMessage & vbNewLine & aProvider.FullName &_
    " has " & aAreasOfInterest.Count & " area(s) of interest"
   
  aAreasInfo = ""  
  for each aAreaShortCode in aAreasOfInterest
    aAreasInfo = aAreasInfo & aAreaShortCode.Description & ","
  next
  
  if aAreasInfo <> "" then
    aMessage = aMessage & vbNewLine & "    " & aAreasInfo
  end if     
next
   
Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Areas Of Interest can be found in Organisation > People&Places > People and Places > Open the selected Provider > Internet > Areas of Interest.

Version information

Added in v7.8.0