Hallo,
ich muss in einer Datenbank über 19000 Dokumente aktualisieren.
Damit alles funktioniert habe ich diesen Agenten erstellt:
Dim session As New NotesSession
Dim uiws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Set db = session.CurrentDatabase
Set collection = db.unprocessedDocuments
Set doc = collection.GetFirstDocument
While Not (doc Is Nothing)
Set uidoc = uiws.EditDocument(True,doc)
Call uidoc.Refresh
Call uidoc.Save
Call uidoc.Close
Set doc = collection.GetNextDocument(doc)
Wend
Das Problem ist, das nach einigen Dokumenten der Fehler "Das schließen des Fensters kann nicht verzögert werden" auftritt.
In diesem Moment sieht man in der Dokumentenauswahlleiste von Notes ein große Anzahl von Dokumenten sowie ein Pfeil der auf weitere Dokumente verweist.
Höchstwarscheinlich ist die Grenze der maximal geöffneten Dokumente erreicht.
Warum? Im Script schließe ich doch das Dokument, welchesich bearbeitet habe. Warum werden die ganzen Dokumente erst geschlossen, wenn ich den Fehler bestätige?
Kann ich die Anzahl der maximal geöffnetet Dokumente nach ober verändern?
Übrigens, ich habe auch schon eine Pause von 1 sec eingebaut. Es passiert genau das gleiche.
Danke für eure Hilfe
René