Examples: Comment property (NotesAgent - LotusScript)

  1. This script gets the comment for the agent that's currently running. For example, if this script were part of the "Archive" agent, the Comment property might return "This agent archives selected documents."
    Dim session As New NotesSession
    Dim agent As NotesAgent
    Dim c As String
    Set agent = session.CurrentAgent
    c = agent.Comment
  2. This script creates a summary of the shared, enabled agents in the current database, listing each agents name and comment. The document containing the summary is then mailed to the database managers.
    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:


    This agent archives selected documents

    Phone Number

    Looks up an employee's phone number


    Calculates the total revenues for the quarter