LOTUSSCRIPT/COM/OLE CLASSES
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
See Also