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

関連項目

ACLActivityLog プロパティ

用語集