Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: bob am 07.08.02 - 19:51:15

Titel: Agent starten in Lotus Script
Beitrag von: bob am 07.08.02 - 19:51:15

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

Titel: Re: Agent starten in Lotus Script
Beitrag von: rar am 08.08.02 - 08:30:45

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

Titel: Re: Agent starten in Lotus Script
Beitrag von: hOtze am 08.08.02 - 08:32:43

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

Titel: Re: Agent starten in Lotus Script
Beitrag von: hOtze am 08.08.02 - 08:33:31

Mh: rar war schneller im schreiben!  :)

Titel: Re: Agent starten in Lotus Script
Beitrag von: bob am 09.08.02 - 16:42:09

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

bye,
Bob

Titel: Re: Agent starten in Lotus Script
Beitrag von: Meff am 10.08.02 - 07:28:04

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  ;)