Dann bauen wir mal eine Fehlerbehandlung und etwas mehr Infos in deinen Agenten ein. Dann sollte die Ausgabe bei dir in etwa so aussehen:
[09F4:01A3-0EC4] { nserver:#1329} 12.12.2019 13:09:42 Remote console command issued by Carsten: te amgr run "test.nsf" 'agenta'
[1010:000C-17F0] { namgr:#33BC} 12.12.2019 13:09:43 AMgr: Start executing agent 'agenta' in 'test.nsf'
[1010:000C-17F0] { namgr:#2E62} 12.12.2019 13:09:43 Agent Manager: Agent printing: Anzahl Dokumente: 2
[1010:000C-17F0] { namgr:#2E62} 12.12.2019 13:09:43 Agent Manager: Agent printing: 1. Dokument wird aktualisiert: Test1
[1010:000C-17F0] { namgr:#2E62} 12.12.2019 13:09:43 Agent Manager: Agent printing: 2. Dokument wird aktualisiert: Test2
[1010:000C-17F0] { namgr:#2E62} 12.12.2019 13:09:43 Agent Manager: Agent printing: Agent beendet.
[1010:000C-17F0] { namgr:#33BE} 12.12.2019 13:09:43 AMgr: Agent 'agent' in 'test.nsf' completed execution
Ich lasse mir von jedem Dokument einen Zähler und zur Sicherheit noch den Inhalt eines Textfeldes FeldXYZ ausgeben.
So wie es hier steht getestet und funktioniert, nur der Name der View und des auszugebenden Feldes sind anzupassen.
Kleiner Hinweis: wenn es mehr als nur ein paar dutzend Dokumente sein sollten könnte die Ausgabe jedes Dokuments das Log vollschreiben, dann ggf. die View so anpassen dass zum Testen erstmal weniger als 100 Dokumente drin stehen. Alternativ legt man einen Ordner an, legt einige Docs rein und nimmt zum Test den Namen des Ordners statt der View, das sollte problemlos gehen.
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim counter As long
On Error GoTo ErrorHandler
Counter = 0
Set db=session.currentDatabase
Set view = db.GetView("ViewA")
Call View.Refresh
Print "Anzahl Dokumente: " + CStr(view.Allentries.Count)
Set doc = view.GetFirstDocument
Do While Not (doc Is Nothing)
Counter = Counter + 1
Print CStr(Counter) + ". Dokument wird aktualisiert: " + doc.FeldXYZ(0)
Call doc.ComputeWithForm(False,False)
Call doc.save(False,False)
Set doc = view.GetNextDocument(doc)
Loop
Print "Agent beendet."
Exit Sub
ErrorHandler:
Print "Fehler " + CStr(Err) + " in Zeile " + CStr(Erl) + ": " + Error$
Resume Next
End Sub
