LOTUSSCRIPT/COM/OLE CLASSES

Examples: UniformAccess property
The following example toggles the UniformAccess property at the user's direction.

Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Set db = session.CurrentDatabase
Set acl = db.ACL
If acl.UniformAccess Then
 If Messagebox("Do you want to toggle?", _
 MB_YESNO + MB_ICONQUESTION, _
 "Uniform access is in effect") = IDYES Then
   acl.UniformAccess = False
   Call acl.Save
 End If
Else
 If Messagebox("Do you want to toggle?",_
 MB_YESNO + MB_ICONQUESTION, _
 "Uniform access is not in effect") = IDYES Then
   acl.UniformAccess = True
   Call acl.Save
 End If
End If

See Also