Agent starten in Lotus Script

[bob]

Hi,

bin leider mit der LotusScript Hilfe nicht weitergekommen.

Ich brauche in einem Agenten nur einen einzigen Befehl in LotusScript.

Formelsprache-Pendant: @Command([ToolsRunMacro]; "AgentBlaBla")

Danke schon im Voraus!

bye,
Bob

[rar]

Morgen!

Dim session as New NotesSession
Dim db as NotesDatabase
Set db = session.CurrentDatabase
Dim agent as NotesAgent
Set agent = db.GetAgent("AgentBlaBla")
Call Agnet.Run()

-rar

[hOtze]

Hi Bob,

also es gibt in LS eine NotesAgent CLass.... da hast du dann eine methode die den Agent starten kann.

Hab das folgende beispiel aus der Hilfe mal kopiert:

Sub Initialize
   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim agent As NotesAgent
   Set db = s.CurrentDatabase
   Set agent = db.GetAgent("Agent to be run LotusScript")
   If agent.Run = 0 Then
        Messagebox "Agent ran",, "Success"
   Else
       Messagebox "Agent did not run",, "Failure"
   End If
End Sub

[hOtze]

Mh: rar war schneller im schreiben!  

[bob]

Prima, danke für die Hilfe(n), genau das wars!

bye,
Bob

[Meff]

Servus bob,

es gibt noch ne Möglichkeit :

Mit der Methode 'Agent.run' läuft der Agent auf Deinem Client, alternativ : 'Agent.RunOnServer', so kannst Du einen Serverbasierten Agent starten.
Schau Dir das mal in der Hilfe an, ich bin mir nicht mehr sicher, ab welchem Release das funzt.

Meff