Kann ich nicht reproduzieren
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Set db = s.Currentdatabase
Dim col As NotesDocumentCollection
Set col = db.Alldocuments
Dim doc As NotesDocument
Set doc = col.Getfirstdocument()
ForAll i In doc.Items
MessageBox( i.Name )
End ForAll
End Sub
UPDATE:
Ulrich hat Recht. Sobald man aber vor der Schleife per Evaluate eine Formel auf dem Dokument aufruft, kommt es zum beschriebenen Fehler.
Also vor der Zeile noch ergänzen:
dummy = Evaluate("@Modified", doc)
-Werner