Hallo Leute,
ich habe einen Agenten erstellt, der in einer Ansicht befindliche Dokumente neu berechnen soll.
Der Agent läuft auf dem Server und soll nach jedem Maileingang gestartet werden.
Jetzt kommt aber immer die Fehlermeldung "Entry im Index nicht gefunden"
Wenn ich den Agenten debuge, kommt der Fehler bei GetNextDocument
Was mache ich aber falsch?
Hier der Agent. Vielen Dank für Eure Hilfe.
Code
Sub Initialize
Dim db As New NotesDatabase ("ntreis1","Datenbanken/Spam.nsf")
Dim view As NotesView
Dim doc As NotesDocument
Set view = db.GetView("(AllNewDocs)")
Set doc = view.GetFirstDocument
While Not (doc Is Nothing)
Call doc.ComputeWithForm(True,True)
Call doc.Save(True,False)
Set doc = view.GetNextDocument( doc )
Wend
End Sub
Alles anzeigen