例: Query property (NotesAgent - LotusScript®)

次のスクリプトは Cleansing エージェントが持つ検索条件を取得して、変数 selection に代入します。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim agent As NotesAgent
Set db = session.CurrentDatabase
Dim selection As String
agentList = db.Agents
Forall a In agentList
  If ( a.Name = "Cleansing Agent" ) Then
    Set agent = a
  End If
End Forall
selection = agent.Query

実行結果の例を次に示します。

Cleansing エージェントが「チューリップ」という単語を含む文書を検索する場合、Query は ("チューリップ") を返します。
「チューリップ」という単語を含み、1996 年 9 月 19 日に作成された文書を Cleansing エージェントが検索する場合、Query は ("チューリップ") AND ([_CreationDate] = 09/19/96) を返します。
Cleansing エージェントが [Response] フォームを使用する文書を検索する場合、Query は (([Form]="Response")) を返します。
Cleansing エージェントが [Response] フォームを使用し、[Subject] フィールドに「mustard greens」という語句を含む文書を検索する場合、Query は (([Form]="Response")) AND ([Subject] CONTAINS (mustard greens)) を返します。