Agenten starten...

[pippo]

Hallo,

habe es vergessen...

kann man mit Script Agenten starten

Grüße, Pippo

[Axel]

Hi,

joo, das geht.

Auszug aus der Designer-Hilfe:

 1.   This agent runs the agent named "Agent to be run LotusScript."
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

Axel

[pippo]

Hallo,

kann es sein, dass die Methode nur ausgibt, ob der Agent aktiv ist oder nicht.

Grüße, Pippo

[Semeaphoros]

Nein, die lässt den auch laufen ..... aber ist da nicht schon ein anderer Thread mit genau einem ähnlichen Problem irgendwo aktiv? Vielleicht wäre eine Thread-Koordination von Vorteil.

[koehlerbv]

@pippo: Guckst Du mal DesignerHilfe ...

@Semeaphoros: Der andere aktuelle Thread betrifft das Problem, n Agents von einem weiteren Agent aus zu starten. Also nicht ganz das pippo'sche Anliegen.

Ciao,
Bernhard

[Semeaphoros]

Stimmt, dann macht Koordination natürlich nicht Sinn ... Sorry.

[Axel]

@pippo

Nein, der Agent wird auch gestartet. Das ist nur ein Beispiel wie man einen Agent mit Script starten kann. Natürlich mußt du das Script an deine Umgebung anpassen.

Set agent = db.GetAgent("Hier muß der Name deines Agenten rein")


Mit dieser Abfrage

If agent.Run = 0 Then
        Messagebox "Agent ran",, "Success"
    Else
        Messagebox "Agent did not run",, "Failure"
End If

kannst du dann prüfen, ob der Agent gelaufen ist.


Axel