LOTUSSCRIPT/COM/OLE CLASSES

Examples: GetFieldType method
This agent displays the types of all the fields in the "Main Topic" form.

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Set db = session.CurrentDatabase
 Dim form As NotesForm
 Set form = db.GetForm("Main Topic")
 Forall field In form.Fields
   Select Case form.GetFieldType(field)
   Case AUTHORS : fieldType = "Authors"
   Case DATETIMES : fieldType = "DateTime"
   Case NAMES : fieldType = "Names"
   Case NUMBERS : filedType = "Number"
   Case READERS : fieldType = "Readers"
   Case RICHTEXT : fieldType = "Rich text"
   Case TEXT : fieldType = "Text"
   Case Else
     fieldType = "Other " & form.GetFieldType(field)
   End Select
   Messagebox fieldType,, field
 End Forall
End Sub

See Also