Hallo zusammen,
ich habe eine Ansicht.
Wenn ich in dieser Ansicht X Dokumente markiere sollen diese kopiert werden und in den neuen Dokumenten die "Felder" Ersteller & Datum zurückgesetzt werden auf einen neuen Wert.
Anbei bisher mein Code. Klappt alles soweit jedoch nimmt er nicht das neu kopierte Dokument und ändert die Werte sondern er nimmt das "alte" Quelldokument und ändert dort die Werte.
Code
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim ret_eval As Variant
Set db = session.CurrentDatabase
Set dc = session.CurrentDatabase.UnprocessedDocuments
Set doc = dc.GetFirstDocument()
While Not(doc Is Nothing)
Call doc.CopyToDatabase(db)
ret_eval = Evaluate( |FIELD Ersteller := @Name([CN];@Username);@True|, doc )
ret_eval = Evaluate( |FIELD Datum := @Today;@True|, doc )
Call doc.Save(True, True)
Set doc = dc.GetNextDocument(doc)
Wend
End Sub
Alles anzeigen
Kann mir jemand hierbei Hilfestellung geben?