LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim s As New NotesSession Dim col As NotesViewColumn Set view = s.CurrentDatabase.GetView("By Category") Set col = view.CreateColumn(view.ColumnCount + 1, _ "Topic 2", _ "Subject2") Messagebox "Position: " & col.Position & Chr(13) & _ "Title: " & col.Title & Chr(13) & _ "Formula: " & col.Formula,, "New column added" End Sub
See Also