ISCDOFormTemplates.Item

Example

Display each of the CDO form templates and some information about them.

Dim aLoadListFormTemplates
Dim aTemplate
Dim aMessage
Dim i
Dim aDesign  
Dim aRootNode                                             

set aLoadListFormTemplates = Profile.CDOFormUtils.LoadListFormTemplates 'ISCDOFormTemplates 

aMessage = "List Form Templates Count = " & aLoadListFormTemplates.Count & vbNewLine 

for i = 0 to aLoadListFormTemplates.Count - 1
  set aTemplate = aLoadListFormTemplates.Item(i) 
  aMessage = aMessage & (i + 1) & ". " &_
    "Name: " & aTemplate.Name & vbNewLine &_
    "    ID: " & aTemplate.ID & vbNewLine &_
    "    HRC CID: " & aTemplate.HRC.TypeID & vbNewLine &_    
    "    DesignDataID: " & aTemplate.DesignDataID & vbNewLine    
  set aDesign = aTemplate.Design 'ISListFormDesign   
  if not aDesign is nothing then
    aMessage = aMessage &_
    "    Design ID: " & aDesign.ID & vbNewLine &_
    "    Design Form Kind: " & aDesign.FormKind & vbNewLine &_
    "    IncludeNullIntoNotes: " & aDesign.IncludeNullIntoNotes & vbNewLine &_    
    "    InsertIntoNotes: " & aDesign.InsertIntoNotes & vbNewLine
    set aRootNode = aDesign.RootNode 'ISListFormDesignNode
    if aRootNode is nothing then  
      aMessage = aMessage & "    RootNode: none" & vbNewLine
    else   
      aMessage = aMessage &_
        "        RootNode Description: " & aDesign.RootNode.Description & vbNewLine
    end if    
  end if
next   

Profile.MsgBox(aMessage)