This is a LotusScript version of "Change Status to Closed." It runs on "All documents in database" and uses UnprocessedDocuments to get the documents to be processed. The Print statement replaces the "Agent done" page with its text.
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set db = s.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
Do While Not(doc Is Nothing)
doc.Status = "Closed"
Call doc.Save(False, True)
Set doc = dc.GetNextDocument(doc)
Loop
Print "<B>All Status fields set to 'Closed'</b>"
End Sub
Ich denke, man kann auch direkt einen Link aufrufen (bin mir aber nicht ganz sicher, ich benutze solche Agenten eigentlich nicht)
Notfalls gibts du mit Print eine HTML-Seite mit einem META-Tag Refresh aus. Auf dieser Seite kann man dann auch die Erfolgsmeldung unterbringen.