Log deleted documents
This short script makes a copy of documents that are deleted.
This short script makes a copy of documents that are deleted.
This way end users won't be able to see the documents any longer in the application, but developers can track deleted documents.
Dim session As New notessession Dim collect As NotesDocumentCollection Dim dc As NotesDocumentCollection Dim db As NotesDatabase Dim doc As Notesdocument Dim doc2 As NotesDocument Set collect = Source.Documents Set db = Source.Database Dim j As Integer For j = 1 To collect.Count Set doc = collect.GetNthDocument(j) If Cstr(Left$(doc.form(0),6))= "BACKUP" Then Goto EndForLoop End If Set doc2 = db.createdocument Call doc.CopyAllItems(doc2, True ) doc2.form="BACKUP_" + doc.form(0) doc2.NOTES_USER_MUTATIE=session.username Call doc2.save(True,True) EndForLoop: Next