例: CloseMIMEEntities method

次のエージェントは MIME ヘッダーを変更して、MIME 処理を終了し、関連する Body アイテムを削除します。save オプションを指定して MIME 処理を終了すると、ヘッダーの変更が Subject アイテムに送られます。

Sub Initialize
  Dim s As New NotesSession
  Dim db As NotesDatabase
  Dim dc As NotesDocumentCollection
  Dim doc As NotesDocument
  Dim mime As NotesMIMEEntity
  Dim header As NotesMIMEHeader
  Set db = s.CurrentDatabase
  s.ConvertMIME = False ' Do not convert MIME to rich text
  Set dc = db.UnprocessedDocuments
  Set doc = dc.GetFirstDocument
  If Not(doc Is Nothing) Then
    Set mime = doc.GetMIMEEntity
    If Not(mime Is Nothing) Then
      Set header = mime.GetNthHeader("Subject")
      Call header.SetHeaderVal(header.GetHeaderVal() & _
      " - Body removed")
      If doc.CloseMIMEEntities(True, "Body") Then
        Call doc.RemoveItem("Body")
      End If
      Call doc.Save(True, True)
    Else
      Messagebox "Not MIME",, doc.GetItemValue("Subject")(0)
    End If
  End If
  s.ConvertMIME = True ' Restore MIME conversion
End Sub