By submitting your email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.
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