LOTUSSCRIPT/COM/OLE CLASSES
Private Sub ViewGetColumn_Click() Dim s As New NotesSession s.Initialize Dim dir As NotesDbDirectory Dim db As NotesDatabase Dim v As NotesView Dim vc As NotesViewColumn Set dir = s.GetDbDirectory("") Set db = dir.OpenDatabase("Web test") Set v = db.GetView("Main View") Set vc = v.GetColumn(1) MsgBox vc.Title, , "Title of column 1" End Sub
See Also