LOTUSSCRIPT /COM/OLE のクラス

例:UnLock メソッド
次のビューアクションは、「Main Agent」というエージェントのロックを解除しようとします。有効なユーザーがロック所有者の 1 人である場合、ロック解除は成功します。

Sub Click(Source As Button)
 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 Unlock agent
 REM Agent is not unlocked if error is raised
 On Error Goto errh
 Call agent.UnLock
 Print "Agent unlocked - " & agent.Name
 Exit Sub
errh:
 Print "Agent NOT unlocked - " & agent.Name
 Exit Sub
End Sub

関連項目