LOTUSSCRIPT /COM/OLE のクラス

例:IsPublicReader プロパティ
次のスクリプトは、特定のエントリがこのデータベースのパブリック文書を読み込めるかどうかを調べます。

Sub Queryopen(Source As Notesuidocument, _
Mode As Integer, Isnewdoc As Variant, _
Continue As Variant)
 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("Mary Bugs/East/ACME")
 If entry.IsPublicReader Then
   Messagebox entry.Name & " is a public reader."
 Else
   Messagebox entry.Name & " is not a public reader"
 End If
End Sub

関連項目