Das mit dem Agenten geht schon. Ich habe das bei uns so umgesetzt, daß ich einen Agenten habe, der die Änderungen im Dokument macht. Der ist auf "periodisch: nie" eingestellt und mit der Server-ID signiert. In einer Schaltfläche habe ich dann ein ein bisschen Script, das den Agenten startet:
Sub Click(Source As Button)
Dim uiws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim agMarkProc As NotesAgent
Set db = uiws.CurrentDatabase.Database
Set doc = uiws.CurrentDocument.Document
Set agMarkProc = db.GetAgent("Mark as Processed")
If agMarkProc.RunOnServer(doc.NoteID) <> 0 Then
Messagebox "Es ist ein Fehler aufgetreten.",,"Verarbeitet"
End If
Call uiws.ViewRefresh
End Sub
Fini.