次のエージェントスクリプトはメールログを開きます。メールログは現在のエージェントの所有者に送られます。例えば、Susanna Tallan が Project Histories データベースの Archiving エージェントの所有者であるとき、[Subject] に「Archiving Agent in Project Histories」を含むメモが Susanna に送られます。アクションとエラーはメモの Body に含まれます。Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim agent As NotesAgent
Set db = session.CurrentDatabase
Set agent = session.CurrentAgent
Dim currentLog As NotesLog
Set currentLog = New NotesLog( agent.Name )
Call currentLog.OpenMailLog _
( agent.Owner, agent.Name & " in " & db.Title )
'...log some actions and errors...
Call currentLog.Close
End Sub