Examples: UserType property
- This code, when added to the Onload event on a form, sets the
ACL user type for Mary Ann Admin to Person when a new document is
created.
Sub Onload(Source As Notesuidocument)
Dim session As new NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Dim entry As NotesACLEntry
Set db = session.CurrentDatabase
Set acl = db.ACL
Set entry = acl.GetEntry("Mary Ann Admin/East/ACME")
If Not (entry Is Nothing) Then
entry.UserType = ACLTYPE_PERSON
Call acl.Save()
End If
End Sub
- This code, when added to the same form in the Onunload event,
displays a message box that states, "Mary Ann Admin has a user type
of Person" when the form is closed.
Sub Onunload(Source As Notesuidocument, Continue As Variant)
Dim session As new NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Dim entry As NotesACLEntry
Set db = session.CurrentDatabase
Set acl = db.ACL
Set entry = acl.GetEntry("Mary Ann Admin/East/ACME")
If (entry.UserType = ACLTYPE_PERSON) Then
Messagebox "Mary Ann Admin has a user type of Person" _
,,"User type"
End If
End Sub
Have feedback?
Google Analytics is used to store comments and ratings. To provide a comment or rating for a topic, click Accept All Cookies or Allow All in Cookie Preferences in the footer of this page.