例: ACLActivityLog property

次のエージェントは、現在のデータベースの ACL ログを表示します。

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