LOTUSSCRIPT/COM/OLE CLASSES
Private Sub ViewColumnNames_Click() Dim s As New NotesSession s.Initialize Dim dir As NotesDbDirectory Dim db As NotesDatabase Dim v As NotesView Dim cns As String Set dir = s.GetDbDirectory("") Set db = dir.OpenDatabase("Web test") Set v = db.GetView("Main View") For Each cn In v.ColumnNames cns = cns + cn + Chr(10) Next MsgBox cns, , "Columns in Main View" End Sub
See Also