例: BoundaryStart property (NotesMIMEEntity - LotusScript®)

次のエージェントは、子エンティティの周囲に境界を配置するマルチパートエンティティのテキストを表示します。

Sub Initialize
  Dim s As New NotesSession
  Dim db As NotesDatabase
  Dim dc As NotesDocumentCollection
  Dim doc As NotesDocument
  Dim mime As NotesMIMEEntity
  Dim child As NotesMIMEEntity
  Dim m As String
  Set db = s.CurrentDatabase
  s.ConvertMIME = False ' Do not convert MIME to rich text
  Set dc = db.UnprocessedDocuments
  Set doc = dc.GetFirstDocument
  While Not(doc Is Nothing)
    Set mime = doc.GetMIMEEntity
    If Not(mime Is Nothing) Then
      If mime.ContentType = "multipart" Then
        If mime.Preamble = "" Then
          m$ = "No preamble"
        Else
          m$ = mime.Preamble
        End If
        Set child = mime.GetFirstChildEntity
        While Not(child Is Nothing)
          m$ = m$ & child.BoundaryStart
          m$ = m$ & child.ContentAsText
          m$ = m$ & child.BoundaryEnd
          Set child = child.GetNextSibling
        Wend
        Messagebox m$,, doc.GetItemValue("Subject")(0)
      Else ' if not multipart
        Messagebox mime.ContentAsText,, _
        doc.GetItemValue("Subject")(0)
      End If
    Else ' if not MIME
      Messagebox "Not MIME",, doc.GetItemValue("Subject")(0)
    End If
    Set doc = dc.GetNextDocument(doc)
  Wend
  s.ConvertMIME = True ' Restore conversion
End Sub