Dokumente über Button in andere DB verschieben

[snowfish26]

Hallo Zusammen

Muss diverse selektierte Dokumente in eine andere DB in einen Ordner verschieben. Nachstehend mein Code:

Dim sesMain As New NotesSession
   Dim CurrentDB As NotesDatabase
   Dim TargetDB As NotesDatabase
   Dim docMail As NotesDocument
   Dim tmpdoc As NotesDocument
   Dim DestinationDoc As NotesDocument
   Dim dcl As NotesDocumentCollection
   
   Set CurrentDB = sesMain.CurrentDatabase
   
   Set TargetDB = sesMain.GetDatabase("chzhdaz01/SRV/DEV/AZ_GRP","Entwickler\R6\Mail-
                                                                              AS-D-Test.nsf")
   Set dcl = CurrentDB.UnprocessedDocuments
   Set docMail = dcl.GetFirstDocument
   While Not docMail Is Nothing
      Set DestinationDoc = docMail.CopyToDatabase(TargetDB)
      Call docMail.PutInFolder("SPAM", True)
      Set docMail = dcl.GetNextDocument(docMail)
   Wend

Der Folder SPAM ist in der TargetDB vorhanden und es ist ein Shared Folder.

Zu meinem Problem. Die Dokumente werden zwar in die neue DB kopiert jedoch sehe ich sie nur in der Ansicht "Alle Dokumente". Hat jemand vielleicht eine Idee wo mein Fehler liegt. Wäre für jeden Tip dankbar.

Gruss

Stéphanie

[klaussal]

Aus der Hilfe:

This method cannot add the first document to a folder that is "Shared, Personal on first use."

[snowfish26]

Das ist mir schon klar, aber ich habe den Folder ja auch nicht Shared, private on first use sondern nur Shard. Funktioniert denn das auch nicht?

Gruss

[klaussal]

Keine Ahnung 
Würde ich an deiner Stelle mal testen, ob das mit normalen Ordnern funzt. Wenn ja, dann scheint das andere nicht zu gehen.

[DAU-in]

Hi,

muss nicht das destinationDoc in den folder 'Spam' verschoben werden?

grüsse

Dau-in

[klaussal]

 

[snowfish26]

Danke

Vor lauter programmieren sieht man die eigenen Fehler mal wieder nicht.

Gruss