NotesAgentクラスのRunメソッドを使う。これは、実行された場所でエージェントを実行する。
ノーツDBのボタンなどに記述した場合、このエージェントはクライアント側で実行される。
同じようなものでRunOnServerメソッドがある。こちらは、サーバ上でエージェントを実行するものである。
場合によってうまく使い分けてほしい。
サンプルは、ボタンに記述してあるもので、単純に指定したエージェントを実行するだけのものである。
----------------------------------------------------------------------
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim agent As NotesAgent
Set db = session.CurrentDatabase
Set agent = db.GetAgent( "(NotesAgentクラス\他のエージェントを呼び出す)" )
'エージェントを実行する
Call agent.Run
End Sub
