LOTUSSCRIPT /COM/OLE のクラス

例:LockHolders プロパティ
次のビューエージェントは、「Main Agent」というエージェントのロック所有者を表示します。

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Set db = session.CurrentDatabase
 
 REM Exit if locking is not enabled
 If Not db.IsDesignLockingEnabled Then
   Print "Design locking not enabled"
   Exit Sub
 End If
 
 REM Get agent
 Dim agent As NotesAgent
 Set agent = db.GetAgent("Main Agent")
 
 REM Display lock holders
 holders = agent.LockHolders
 If holders(0) = "" Then
   Messagebox "None",, "Lock holders"
 Else
   Forall h In holders
     msg$ = msg$ & h & Chr(13)
   End Forall
   Messagebox msg$,, "Lock holders"
 End If
End Sub

関連項目