FSS.social
2Feb 090

Dokumente kopieren ohne das Erstellungsdatum zu ändern

am Montag, den 2. Februar 2009

Wenn in Lotus Notes Dokumente per Copy & Paste kopiert werden, wird das Erstelldatum auf das Datum während des Kopiervorganges geändert. Dieses Problem kann nur mit Hilfe von Lotus Script umgangen werden.

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, "PfadDatenbank.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

Quelle:

Kommentare (0) Trackbacks (0)

Zu diesem Artikel wurden noch keine Kommentare geschrieben.


Leave a comment

Noch keine Trackbacks.