LOTUSSCRIPT /COM/OLE のクラス

例:IsCurrentAccessPublicReader プロパティ
次のエージェントは、ユーザーがワークスペースのデータベースに対してパブリック文書の [読者] アクセス権を持つ場合、そのデータベースを開きます。

Sub Initialize
 Dim session As New NotesSession
 Dim ws As New  NotesUIWorkspace
 Dim db As NotesDatabase
 server$ = "Snapper"
 file$ = "bob\Stream"
 Set db = session.GetDatabase(server$, file$)
 If Not db.IsOpen Then
   Messagebox "Database does not exist",, _
   server$ & "\\" & file$
   Exit Sub
 End If
 If db.IsCurrentAccessPublicReader Then
   Call ws.OpenDatabase(server$, file$)
 Else
   Messagebox "You are not a public reader",, _
   server$ & "\\" & file$
 End If
End Sub

関連項目