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)) を返します。

Query プロパティ

用語集