例: CanReplicateOrCopyDocuments property

次のエージェントは現在のデータベースに Eben Klemm のエントリを作成して、[作成者] のアクセス権を与えます。また、Eben Klemm が文書の複製やコピーはできないように設定します。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Set db = session.CurrentDatabase
  Dim acl As NotesACL
  Dim entry As NotesACLEntry
  Set acl = db.ACL
  Set entry = New NotesACLEntry _
( acl, "Eben Klemm/East/ACME", ACLLEVEL_AUTHOR )
  entry.CanReplicateOrCopyDocuments = False
  Call acl.Save
End Sub