例: UserType property

次のコードがフォームの [Onload] イベントに追加された場合、新規の文書を作成するときに Mary Ann Admin の ACL のユーザーの種類が [ユーザー] に設定されます。

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

次のコードが同じフォームの [Onunload] イベントに追加された場合、フォームを閉じるときにメッセージボックスに「Mary Ann Admin has a user type of Person」と表示されます。

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