ISProvider.DeleteAreaOfInterest

Example

Delete the provider's area of interest.

sub main
  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 & "Areas of interest for " &_
      aProvider.FullName & " BEFORE DELETING = " & aAreasOfInterest.Count &_
      GetAreasOfInterestInfo(aAreasOfInterest) 

    for each aAreaOfInterest in aAreasOfInterest 
      aProvider.DeleteAreaOfInterest(aAreaOfInterest)
    next
    aProvider.Save

    set aAreasOfInterest = aProvider.GetAreasOfInterest   
    aMessage = aMessage & vbNewLine & "Areas of interest for " &_
      aProvider.FullName & " AFTER DELETING = " & aAreasOfInterest.Count &_
      GetAreasOfInterestInfo(aAreasOfInterest)
  next   
  Profile.MsgBox(aMessage)
end sub
   
function GetAreasOfInterestInfo(aAreasOfInterest)  
  aAreasInfo = ""  
  for each aAreaOfInterest in aAreasOfInterest
    aAreasInfo = aAreasInfo & aAreaOfInterest.Description & ","
  next
  
  if aAreasInfo <> "" then
    aMessage = aMessage & vbNewLine & "    " & aAreasInfo
  end if
  GetAreasOfInterestInfo = aAreasInfo
end function