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