ISExternalProvider.EmbeddedFormCount

Description

The number of the external provider's embedded form templates.

Syntax

object.EmbeddedFormCount

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

Restriction: This property is readonly.

Return Value

int

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