例: CanCreateDocuments property

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

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 = New NotesACLEntry _
( acl, "Eben Klemm/East/ACME", ACLLEVEL_AUTHOR )
entry.CanCreateDocuments = True
entry.CanDeleteDocuments = False
Call acl.Save