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

See Also

ACLActivityLog property

Glossary