例: Agents property

次のアクションスクリプトは現在のデータベースの各エージェントの名前を表示します。スクリプトはクライアントで実行されるため、共有エージェント名に加えて、現在のユーザーの個人エージェントがある場合はそれも表示します。
```
Sub Click(Source As Button)
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Set db = session.CurrentDatabase
  If IsArray(db.Agents) Then
    Forall a In db.Agents
      Messagebox( a.Name )
    End Forall
  End If
End Sub
```

次のスクリプトは現在のデータベース [Periodic Archive] でエージェントを検索して、エージェントオブジェクトに割り当てます。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim agent As NotesAgent
Set db = session.CurrentDatabase
If Not IsEmpty(db.Agents) Then
  Forall a In db.Agents
    If ( a.Name = "Periodic Archive" ) Then
      Set agent = a
    End If
  End Forall
End Forall