LOTUSSCRIPT/COM/OLE CLASSES

Examples: ProtectReaders property
This script toggles protection for the readers field.

Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
viewNameIn = Lcase(Inputbox("Name of view?"))
Forall view In db.Views
 If Lcase(view.Name) = viewNameIn Then
   If view.ProtectReaders Then
     view.ProtectReaders = False
     Messagebox "ProtectReaders is set for " _
     & view.Name
   Else
     view.ProtectReaders = True
     Messagebox "ProtectReaders is not set for " _
     & view.Name
   End If
   Exit Sub
 End If
End Forall
Messagebox "The view """ & viewNameIn & """ does not exist"

See Also