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
Do you have comments on this Ask the Expert Q&A? Let us know.
Dig Deeper on LotusScript
Related Q&A from Jens Bruntt
Web Development expert Jens Bruntt offers suggestions on how to programmatically copy and hide attachments in Lotus Notes rich-text fields. Continue Reading
Learn about an add-on Domino developers can use to programmatically edit rich-text field tables from within the Lotus Notes client. Continue Reading
Web Development expert Jens Bruntt outlines three potential issues to consider when troubleshooting Lotus Notes Domino tabbed table problems. Continue Reading