例: CanCreatePersonalFolder property

次の例は現在のデータベースに個人フォルダを作成する権利を Jeffrey Kinnamon のエントリに与えます。

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( "Jeffrey Kinnamon" )
If Not ( entry Is Nothing ) Then
  entry.CanCreatePersonalFolder = True
  Call acl.Save
End If