Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: pippo am 04.11.03 - 17:39:24
-
Hallo,
habe es vergessen...
kann man mit Script Agenten starten
Grüße, Pippo
-
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
-
Hallo,
kann es sein, dass die Methode nur ausgibt, ob der Agent aktiv ist oder nicht.
Grüße, Pippo
-
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.
-
@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
-
Stimmt, dann macht Koordination natürlich nicht Sinn ... Sorry.
-
@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