Hallo Leo,
Dein Code-Schnipsel kann nach m.M. nicht sauber funktionieren (ich wundere mich sogar, dass überhaupt mehr als ein Dokument in den Ordner verschoben wird).
Set view = db.GetView("($Inbox)")
Set doc = view.GetLastDocument
' Du willst also die Dokumente in der View "$Inbox" von hinten nach
' vorn abarbeiten
For i = 1 To
...
If days > 60 Then
...
' OK, ein Dok gefunden, dass zu alt ist,
' wird jetzt aus dem Ordner $Inbox entfernt
Call doc.RemoveFromFolder("($Inbox)")
End If
Set doc = view.GetPrevDocument(doc)
' Du sucht jetzt das nächste (vorhergehende) Dokument zu doc
' in der View $Inbox
' doc hast Du aber gerade aus dem Ordner $Inbox entfernt
'
was ist der Vorgänger eines Dokumentes, das nicht mehr in der View
' existent ist
Thomas