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.
You change code to send to mailin database or to a database.
Put below in the databse Script PostDocumentDelete Event
'Put this code in the PostDocumentDelete Event of the database
Dim memo As NotesDocument
Dim coll As NotesDocumentCollection
Dim sess As New Notessession
Dim doc As NotesDocument
Dim sendto As String
Set coll=Source.Documents 'Deleted Documents handles
If coll.Count=0 Then Exit Sub
Set doc = coll.GetFirstDocument
While Not(doc Is Nothing)
memo.Subject=sess.CommonUserName+" has deleted document from
"+sess.CurrentDatabase.Title+ " Database on "+Cstr(Now)