Post document delete

This script automatically mails someone when a document is deleted.

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
This was first published in July 2002

Dig deeper on Domino Resources

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

SearchWinIT

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchVirtualDataCentre.co.UK

Close