Sorry hatte ich übersehen.
Hier ein Lösungsvorschlag.
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim nextdoc As NotesDocument
Set db = session.CurrentDatabase
Set view=db.GetView("$Inbox")
Set doc=view.GetFirstDocument
'alle Dokumente der Inbox durchlaufen
While Not doc Is Nothing
Set nextdoc=view.GetNextDocument(doc)
'Mail verarbeiten
...
'verschieben in Order Ablage und aus Inbox entfernen
Call doc.PutInFolder( "Ablage" )
Call doc.RemoveFromFolder("$Inbox")
[color=0000FF]Call view.Refresh[/color]
Set doc=nextdoc
wend
So funktioniert es zwar (zumindest bei mir),
aber wirklich elegant ist das nun nicht mehr,
da der Ordner ja jedesmal refresht wird.
Der elegante Weg ist, wie ascabg schon weiter oben angedeutet hat, alle Dokumente in einer Collection abarbeiten und dann
per col.PutAllInfolder(..) und col.Removeallfromfolder(...)
verschieben bzw. aus dem Ordner entfernen.
Gruß
MeinerEiner