Mails per Script in einen Ordner verschieben.

[Detlef]

Hallo,

kann mir jemand sagen, wie ich ein Dokument per Script in einen Ordner verschiebe?

Genauer gesagt, sollen alle eingehenden Mails aus dem Posteingang in bestimmte Ordner verschoben werden. Ich kann die Dokumente wohl in einem Odner hinzufügen nur leider nicht verschieben:

Das ganze in einem Agent für eingehende Mails

   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Dim coll As NotesDocumentCollection
   Set db = session.CurrentDatabase
   Set coll = db.UnprocessedDocuments
   Set doc = coll.GetFirstDocument
   While Not(doc Is Nothing)
      Call doc.PutInFolder("Kunden",True)
      Set doc = coll.GetNextDocument(doc)
   Wend

Danke für Tips!

Detlef

[koehlerbv]

Gib NotesDocument.RemoveFromFolder eine Chance  

Bernhard

[Detlef]

Bin ich denn so blind  


Danke!

Detlef