Examples: IsExtendedAccess property (NotesACL - LotusScript®)

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
    acl.IsExtendedAccess = True
    Print "Enabling extended access (and consistent ACL if need be)"
  End If
  Call acl.Save()
End Sub