LOTUSSCRIPT/COM/OLE CLASSES

Examples: InternetLevel property
This script obtains the maximum Internet access level for the current database and displays it in a message. If the access level is Manager, the script changes it to Designer.

Dim session As New NotesSession
Dim db As NotesACL
Dim acl As NotesACL
Set db = session.CurrentDatabase
Set acl = db.ACL
Messagebox acl.InternetLevel
If acl.InternetLevel = ACLLEVEL_MANAGER Then
 acl.InternetLevel = ACLLEVEL_DESIGNER
End If
Call acl.Save

See Also