Domino 9 und frühere Versionen > Entwicklung

Agent starten in Lotus Script

(1/2) > >>

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

Navigation

[0] Themen-Index

[#] Nächste Seite