Ich hab es befürchtet.
Es gibt auch keine möglichkeit innerhalb des gestarteten Agents, oder?
So ein Agent wird zum Beispiel gestartet, aus dem Menu heraus funktioniert der auch:
Sub Initialize
Dim ns As notesSession
Dim ndb As notesDatabase
Dim ncol As notesDocumentCollection
Dim ndoc As notesdocument
Set ns = New notesSession
Set ndb = ns.currentDatabase
Set ncol = ndb.unprocessedDocuments
Set ndoc = ncol.getfirstdocument
While Not (ndoc Is Nothing)
If ndoc.run_state(0) = "05" Then
ndoc.run_state = "15"
ndoc.allauthors=""
Call ndoc.save(True,True)
End If
Set ndoc = ncol.getnextdocument(ndoc)
Wend
End Sub