Lotus Domino Designer 6.5.1 ヘルプ - 例:Comment プロパティ

LOTUSSCRIPT /COM/OLE のクラス

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

Dim session As New NotesSession
Dim agent As NotesAgent
Dim c As String
Set agent = session.CurrentAgent
c = agent.Comment

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

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 つあるときには、概要文書の [Body] フィールドは次のようになります。

Archive エージェントは選択された文書をアーカイブします。

Phone Number 被雇用者の電話番号を検索します。

Total 四半期の歳入合計額です。

関連項目

用語集

用語集

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