Here are the steps you may wish to perform:
1. Create a log database. This can just be based off the log.ntf template.
2. Set the log database's ACL for -Default- to be Depositor with nothing checked but "Create documents". This will prevent the person from seeing the log documents if he somehow figured out something was happening.
3. Disable copying for the user. On the mail database, modify the ACL for the offender to disable "Replicate or copy documents" in the Attributes section.
4. Add the following code to the PostOpen event for the Memo, Reply, and Reply with history forms if you are concerned with Calendar or To-Do documents. You could also add it to other forms.
'Generate log event for opening of emails by someone other than the DB owner
If Not source.IsNewDoc Then
'If the user is not the database owner then log the document open
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dbowner As Variant
Dim prodoc As NotesDocument
Set db = session.CurrentDatabase
Set prodoc = db.GetProfileDocument("calendarprofile")
dbowner = prodoc.GetItemValue("Owner")
If session.UserName <> dbowner(0) Then
Dim delivereditem As NotesItem
Dim delivered As notesdatetime
Set delivereditem = source.document.GetFirstItem("PostedDate")
Set delivered = delivereditem.DateTimeValue
Dim OpenLog As New NotesLog(db.FilePath)
Call OpenLog.OpenNotesLog("HQAPP01/COMPORIUM", "ChrisDesigns\loggingdb.nsf")
Call OpenLog.LogAction("Email Opened: " + source.FieldGetText("Subject") + " From: " _
+ source.FieldGetText("From") + " Received On: " + delivered.LocalTime)
'END logging of email opens
provided by Julian Robichaux at nsftools.com.
Technorati: Show-n-tell thursday