Agent mit Lotus Script starten

[Fbaum]

Hallo...
hätte da noch eine ganz kurze Frage...
Wie starte ich einen Agenten in Lotus Script??
Stehe gerade auf dem Schlauch... In der Notes Hilfe habe ich auch nicht wirklich was gefunden.
100000 Dank an Euch...
Gruß FBaum

[Axel]

Hi,

das Beispiel hab ich in der Designer-Hilfe gefunden:

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


This is "Agent to be run LotusScript."
Sub Initialize
    Dim s As New NotesSession
    Dim agent As NotesAgent
    Set agent = s.CurrentAgent
    Dim db As NotesDatabase
    Set db = s.CurrentDatabase
    Dim memo As New NotesDocument(db)
    memo.Form = "Memo"
    memo.SendTo = s.UserName
    memo.Subject = "Message from LotusScript agent"
    memo.Body = "The agent is running as " & s.UserName
    Call memo.Send(False)
End Sub



Axel

[Fbaum]

Hi,
genau das Ding habe ich auch gefunden. Funktioniert aber bei mir nicht so wirklich. Wenn ich meinen Agenten manuell starte geht´s. Nur nicht über das Script...
Gruß FBaum

[Till_21]

was spuckt er denn für ne fehlermeldung aus ?
oder läuft er einfach nur nicht ?

[yes2002]

Hi,

liegt der zu startende Agent in einer Datenbank auf dem gleichen Server?
Gruß

[Fbaum]

Hallo....
Asche über mein Haupt....
Ich bestreite alles und behaupte das Gegenteil...
Jetzt läuft er. Hatt was vergessen zu kopieren.
Vielen Dank für die Hilfe.
Gruß FBaum....