LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim s As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim newName As String Set db = s.CurrentDatabase Set view = db.GetView("Topics") newName = Inputbox$("New name", _ "Change name:", view.Name) If newName = "" Then Exit Sub view.Name = newName End Sub
See Also