Hallo, möchte gerne Dokumente aus einer Ansicht kopieren, und diese in ein Ordner verschieben.
Sub Click(Source As Button)
Dim s As New NotesSession
Dim db As NotesDatabase
Set db = s.CurrentDatabase
Dim view As NotesView
Set view = db.GetView("Budget")
Dim doc As NotesDocument
Dim docNeu As NotesDocument
Set doc = view.GetFirstDocument
Set docNeu = New NotesDocument(db)
Do Until doc Is Nothing
Msgbox doc.Bu_Fil(0)
Call doc.CopyAllItems(docNeu, True)
Call docNeu.PutInFolder("Nach Jahr" )
Call docNeu.Save(True,True)
Set doc = view.GetNextDocument(doc)
Loop
End Sub
Wenn ich den Code mittels Schaltfläche in der Ansicht ausführe, wird das erste Dokument kopiert und ist in der Ansicht ersichtlich, dann erscheint die Fehlermeldung: Can't copy a documents items to itselfs.
Sieht aus als ob er das erste Dokument kopiert, dann versucht das kopierte Dokument nochmals zu kopieren
Danke für jeden Tipp
... dein Fehler liegt beim Erstellen des docNeu...
Set docNeu = New NotesDocument(db)
es findet ausserhalb der Schleife statt - es muß in die Schleife, damit du je Durchgang ein neues Dokument erstellst, und nicht nur fürs erste mal...
Ich schließe mich der Meinung von Bernhard an - ich würde CopyTo Database verwenden...
Toni