LOTUSSCRIPT/COM/OLE CLASSES

Examples: IsExtendedAccess property
The following agent toggles IsExtendedAccess for the current database, disabling UniformAccess at the user's discretion.

%INCLUDE "lsconst.lss"
Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim acl As NotesACL
 Set db = session.CurrentDatabase
 Set acl = db.ACL
 REM Toggle "Enable Extended Access"
 If acl.IsExtendedAccess Then
   acl.IsExtendedAccess = False
   Print "Disabling extended access"
   If Messagebox("Do you want to disable consistent ACL also", _
   MB_YESNO + MB_ICONQUESTION, "Consistent ACL") = IDYES Then
     acl.UniformAccess = False
     Print "Disabling consistent ACL"
   End If
 Else
   acl.IsExtendedAccess = True
   Print "Enabling extended access (and consistent ACL if need be)"
 End If
 Call acl.Save()
End Sub

See Also