LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim s As New NotesSession Dim db As NotesDatabase Dim view As NotesView Set db = s.CurrentDatabase Set view = db.GetView("Topics") If view.IsDefaultView Then view.IsDefaultView = False Messagebox "Is not the default view",, view.Name Else view.IsDefaultView = True Messagebox "Is now the default view",, view.Name End If End Sub
See Also