ISProvider.EmbeddedForms

Description

This property returns the HRC of the provider's saved CDO form, otherwise it returns nothing.

Syntax

object.EmbeddedForms(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISProvider	The `object` always implements the ISProvider interface
`aIndex`	In, Required	int	The index of the CDO form in the list

Restriction: This property is readonly.

Return Value

ISHRC

Example

Display the number of the provider's embedded forms templates and the names of his/her saved CDO forms.

Dim aFilter 
Dim aProviders
Dim aProvider
Dim aFormCount
Dim aFormHRC
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
  aFormCount = aProvider.EmbeddedFormCount
   
  aMessage = aMessage & vbNewLine & aProvider.FullName &_
    " has " & aFormCount & " embedded forms"
    
  for i = 0 to aFormCount - 1
    set aFormHRC = aProvider.EmbeddedForms (i)
    if not aFormHRC is nothing then
      aMessage = aMessage & vbNewLine & "   -   " & aFormHRC.AsString
    end if  
  next  
next 

Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Embedded Forms can be found in Organisation > People&Places > People and Places > Open the selected Provider > Extra.

Version information

Added in v7.8.0