例: CollapseAllSections method

次のスクリプトは現在のユーザーが現在のデータベースにロール [Lurker] を持つかどうかを調べます。ロールを持つときは、文書が開かれるとすべてのセクションを省略します。

Sub Postopen(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( session.CommonUserName )
  If ( entry.IsRoleEnabled( "Lurker" ) ) Then
    Call source.CollapseAllSections
  End If
End Sub