Hi,
könnt' ich mir im QuerySave-Event in etwa so vorstellen:
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 doc.RadioButton(0) = "1" Then
If agent.Run = 0 Then
Messagebox "Agent ran",, "Success"
Else
Messagebox "Agent did not run",, "Failure"
End If
End If
...
Das Radio-Button-Feld heißt in diesem Beispiel RadioButton und als Wert wurde ein Text mit einem Alias angenommen z.B.
Dokument soll archiviert werden|1
Axel
