Logging Document Deletions from a Database within that database

Author: Tripp W Black

Created: 02/07/2001 at 06:22 PM

 

Category:
Notes Developer Tips
LotusScript

Dirk D
Hamilton To: Tripp W Black/LIB/Wake County@Wake County
cc:
03/20/00 Subject: LOG
02:56 PM





Sub Postdocumentdelete(Source As Notesuidatabase)
Dim s As New notessession
Dim db As notesdatabase
Dim d3 As notesdocument
Dim c As notesdocumentcollection
Dim d As notesdocument
Set db = s.currentdatabase
Set c = source.documents
Set d = c.getfirstdocument
Do
f = d.form
If f(0) = "log" Then Goto skipper
i = d.issue
p = d.pkey
'create log entry
Set d3 = db.createdocument
d3.form = "log"
d3.when = Now
d3.who = Evaluate("@Name([CN];@V3UserName)")
d3.what = "Deleted a document. Form = " + f(0) + " :: issue = " + i(0) + " :: pkey = " + p(0)
Call d3.save(True,False)
skipper:
Set d = c.getnextdocument(d)
Loop Until d Is Nothing

End Sub




previous page