ISExternalProvider.EmbeddedForms

Description

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

Syntax

object.EmbeddedForms(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISExternalProvider	The `object` always implements the ISExternalProvider 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 external provider's embedded form templates and the names of his/her saved CDO forms.

Dim aExtProvider 
Dim aCode
Dim aFormCount
Dim aFormHRC
Dim aMessage

aCode = "1"

Set aExtProvider = Profile.LoadExternalProvider(aCode)

if aExtProvider.ID = 0  then 
  Profile.MsgBox("No external provider with the specified code")
  exit sub   
end if

aFormCount = aExtProvider.EmbeddedFormCount
aMessage = aMessage & vbNewLine & aExtProvider.FullName &_
  " has " & aFormCount & " embedded forms" 

for i = 0 to aFormCount - 1
  set aFormHRC = aExtProvider.EmbeddedForms (i)
  if not aFormHRC is nothing then
    aMessage = aMessage & vbNewLine & "   -   " & aFormHRC.AsString
  end if
next 
 
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Embedded Forms can be found in Organisation > External Providers > Extra.

Version information

Added in v7.8.0