LOTUSSCRIPT /COM/OLE のクラス

例:GetAgent メソッド
次の例は、現在のデータベース中のすべてのエージェントを表示し、ユーザーが指定したエージェントを実行します。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim theAgent As NotesAgent
Dim agentString As String
Set db = session.CurrentDatabase
Forall agent In db.Agents
    agentString = agentString & Chr(10) & agent.Name
End Forall
Messagebox agentString,, "Agents"
Set theAgent = db.GetAgent(Inputbox( _
"Which agent do you want to run?"))
If Not(theAgent Is Nothing) Then
    Call theAgent.Run
Else
    Messagebox "No existing agent selected"
End If

関連項目