例: EndSection method

次のエージェントは、リッチテキストアイテムの最後でセクションを開始および終了します。セクションにはファイルの内容が含まれます。セクションのタイトルはファイル名です。

%INCLUDE "lserr.lss"
Sub Initialize
  On Error ErrFileNotFound Goto handler
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Set db = session.CurrentDatabase
  Dim dc As NotesDocumentCollection
  Set dc = db.UnprocessedDocuments
  Dim doc As NotesDocument
  Set doc = dc.GetFirstDocument
  Dim rti As NotesRichTextItem
  Set rti = doc.GetFirstItem("Body")
  Dim stream As NotesStream
  Set stream = session.CreateStream
  Dim rtstyle As NotesRichTextStyle
  Set rtstyle = session.CreateRichTextStyle
  rtstyle.Bold = True
  Dim colorObject As NotesColorObject
  Set colorObject = session.CreateColorObject
  colorObject.NotesColor = COLOR_RED
  filename$ = Inputbox$("Full path name of file", "File name")
  While filename$ <> ""
    v = Getfileattr(filename$) ' error if file does not exist
    If Not stream.Open(filename$) Then
      Messagebox "Could not open stream",, "Error"
      Exit Sub
    End If
    Call rti.BeginSection(filename$, rtstyle, colorObject, _
    False)
    Call rti.AppendText(stream.ReadText)
    Call rti.EndSection
    Call stream.Close
    filename$ = Inputbox$("Full path name of file", _
    "File name")
  Wend
  Call doc.Save(True, True)
  Exit Sub
handler:
  filename$ = Inputbox$("Bad file name - try again", _
  "File name")
  If filename$ = "" Then
    Call doc.Save(True, True)
    Exit Sub
  Else
    Resume 0
  End If
End Sub