例: Comment property (NotesAgent - LotusScript)

次のスクリプトは、現在実行中のエージェントのコメントを取得します。例えば、このスクリプトが「Archive」エージェントの一部であるときは、このプロパティは「エージェントは選択された文書をアーカイブします。」のようなスクリプト内のコメントを返します。
```
Dim session As New NotesSession
Dim agent As NotesAgent
Dim c As String
Set agent = session.CurrentAgent
c = agent.Comment
```

次のスクリプトは、現在のデータベースで有効な共有エージェントの名前とコメントをリスト表示します。リスト表示を保存した文書はデータベース管理者にメール送信されます。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( doc, "Body" )
Forall a In db.Agents
  If ( a.IsPublic And a.IsEnabled ) Then
    Call rtitem.AppendText( a.Name )
    Call rtitem.AddTab( 2 )
    Call rtitem.AppendText( a.Comment )
    Call rtitem.AddNewLine( 1 )
  End If
End Forall
doc.Subject = "Shared agent summary for " & db.Title
Call doc.Send( False, db.Managers )

例えば、現在のデータベースに有効な共有エージェントが 3 つあるときには、概要文書の [本文] フィールドは次のようになります。

Archive	エージェントは選択された文書をアーカイブします。
Phone Number	被雇用者の電話番号を検索します。
Total	四半期の歳入合計額です。