.

HCLSoftware Business Partner Domino Consulting Services CRUCIAL Notes Tools +1 212-599-2048	Domino Consulting Services CRUCIAL Notes Tools Domino administration Notes development	Chat now
.

EN - English CN - 中文 JP - 日本語 DE - Deutsch FR - Français BR - Português RU - Pу́сский IT - Italiano IN - हिन्दी ES - Español KR - 한국어 ID - Indonesia NL - Dutch TR - Türkçe SA - العربية SE - Svenska NO - Norsk PL - Polski TH - ไทย DK - Dansk MY - Malay PH - Filipino GR - Ελληνικά FI - Suomi IL - עברית IE - Gaeilge CZ - Čeština UA - Українська RO - Română VN - Tiếng Việt BD - বাংলা HU - Magyar

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

Feedback on Help or Product Usability?

Help on Help

All Help Contents

Feedback on Help or Usability?

Help on Help