Wenn man per LotusScript die Methode NotesDocument.CopyToDatabase nutzt, dann bleibt das Original-Erstellungsdatum der Dokumente erhalten. Kopiert man die Dokumente einfach per Copy & Paste, dann geht das Original-Erstellungsdatum verloren, und die Dokumente erhalten das aktuelle Datum als Erstellungsdatum...
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim archiv As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set collection = db.AllDocuments
Set archiv = session.GetDatabase( db.Server, "Pfad\Datenbank.nsf" )
For i = 1 To collection.Count
Set doc = collection.GetNthDocument( i )
Call doc.CopyToDatabase( archiv )
' Wenn die Dokumente in der Originaldatenbank
' geloescht werden sollen:
Call doc.remove( True )
Next
End Sub
This LotusScript was converted to HTML using the ls2html routine,
provided by Julian Robichaux at nsftools.com.
|
|
