Examples: CreateParentEntity method

This agent gets the MIME entity in the current document. If the entity is not multipart, the agent creates a parent entity. The agent then appends a child entity.

Sub Initialize
  Dim s As New NotesSession
  Dim db As NotesDatabase
  Dim dc As NotesDocumentCollection
  Dim doc As NotesDocument
  Dim mime As NotesMIMEEntity
  Dim parent As NotesMIMEEntity
  Dim stream As Notesstream
  Set db = s.CurrentDatabase
  s.ConvertMIME = False ' Do not convert MIME to rich text
  Set stream = s.CreateStream
  Set dc = db.UnprocessedDocuments
  Set doc = dc.GetFirstDocument
  If doc Is Nothing Then Goto ExitSub
  Set mime = doc.GetMIMEEntity
  If Not(mime Is Nothing) Then
    If mime.ContentType <> "multipart" Then
      Set parent = mime.CreateParentEntity
      Set parent = mime
    End If
    Set mime = parent.CreateChildEntity
    Call stream.WriteText("Additional text." & _
    Chr(10) & Chr(10))
    Call mime.SetContentFromText(stream, _
    "text/plain", ENC_NONE)
    Call doc.Save(True, True)
    Messagebox "Not MIME",, doc.GetItemValue("Subject")(0)
  End If
 s.ConvertMIME = True ' Restore conversion
End Sub