当ブログに掲載しているサンプルは、すべて利用者の自己責任とします。
ただし、明らかな不具合がある場合、ご連絡いただければ、訂正記事を出します。
また、こちらのサンプルは、別のサイト等への公開、転載は一切禁止しています。
どうしてもと言う場合は、筆者にあらかじめご連絡ください。
記事そのもののリンクについてはご自由に行っていただいてよいです。
xxのようなサンプルを作って欲しいとかxxxの作り方を教えて欲しいというお問い合わせには応じていません。
このようなお問い合わせは、株式会社エフまでご一報ください。

2008年10月31日金曜日

他のエージェントを実行する

ノーツDBにあるエージェントを呼び出して実行するという方法。
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





Lotus Notes/Domino カスタマイズとセキュリティ強化 - 株式会社エフ

0 件のコメント: