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

関連項目

GetFieldType メソッド

用語集