LOTUSSCRIPT/COM/OLE CLASSES

Examples: Name property
This agent changes the name of a view. The existing name is used as the default value in the Inputbox$ statement.

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