This is a rather simple script, but I can’t seem to get it to save the ACL settings when I run this from an agent, button, etc. I MUST be missing something simple, but can anyone spot it?
The symptom is that my code falls into the IF statement, it sets the internetLevel to no access (0) and then the second messagebox confirms it has been set. The problem is that when I run the same script again, the internetlevel is unchanged…it’s not ‘No Access’…it’s back to whatever it was originally. It’s not saving for some reason.
Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Set db = session.CurrentDatabase
Set acl = db.ACL
MessageBox acl.InternetLevel
If acl.InternetLevel <> ACLLEVEL_NOACCESS Then
acl.InternetLevel = ACLLEVEL_NOACCESS
MessageBox acl.InternetLevel
End If
Call acl.Save