LOTUSSCRIPT /COM/OLE のクラス

例:CollapseAllSections メソッド
次のスクリプトは現在のユーザーが現在のデータベースにロール [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

関連項目