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 script automatically mails someone when a document is deleted.
Sub Postdocumentdelete(Source As Notesuidatabase) Dim db As NotesDatabase Dim doc As NotesDocument Set db = Source.Database Set doc = New NotesDocument( db ) doc.SaveMessageOnSend = False doc.Form = "Memo" doc.SendTo = "Mustapha Achour" doc.Subject = CStr(Source.Documents.Count) & " documents deleted at " & CStr(Now) & "." Call doc.Send( False ) End Sub