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 )

For example, if there are three shared, enabled agents in the current database, the Body of the summary document might look like this:

Archive	This agent archives selected documents
Phone Number	Looks up an employee's phone number
Total	Calculates the total revenues for the quarter

See Also

Comment property

Glossary