例: OpenMailLog method

  1. 次のエージェントスクリプトはメールログを開きます。Close メソッドが呼び出されると、[Subject] に「Here's the Linguist Log」を含むメールメモが Thalia Ruben に送られます。アクションとエラーはメモの Body に含まれます。
    Sub Initialize
      Dim currentLog As NotesLog
      Set currentLog = New NotesLog( "Linguist Log" )
      Call currentLog.OpenMailLog _
      ( "Thalia Ruben", "Here's the Linguist Log" )
      '...log some actions and errors...
      currentLog.Close
    End Sub
  2. 次のエージェントスクリプトはメールログを開きます。メールログは現在のエージェントの所有者に送られます。例えば、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