Examples: ACLActivityLog property

This agent displays the ACL log for the current database.

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Set db = session.CurrentDatabase
  Dim msg As String
  Forall logEntry In db.ACLActivitylog
    msg = msg & logEntry & Chr(10)
  End Forall
  Messagebox msg,, "ACL activity log"
End Sub