.

HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1 212-599-2048

Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development

Facebook Twitter YouTube
Chat now       
.
ProductsDownloadsNewsAbout usContact


Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

LOTUSSCRIPT/COM/OLE CLASSES

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

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim views As Variant
 Dim viewNameIn As String
 Set db = session.CurrentDatabase
 viewNameIn = Lcase(Inputbox("Name of view?"))
 views = db.Views
 Forall view In 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"
End Sub

See Also