例: CanCreateSharedFolder property

次のスクリプトは [編集者] のアクセス権を持つ Nedra Keen のエントリを ACL に作成し、共有フォルダを作成することを許可します。

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, _
"Nedra Keen/East/ACME",ACLLEVEL_EDITOR)
entry.CanCreateSharedFolder = True
Call acl.Save