Internetmail MIME mit formatiertem Body versehen

[Alexander 28]

Ich habe den nachstehenden Code von IBM benutzt um eine Internetmail (MIME) zu erstellen. Nun möchte ich aber den Content der Mail befüllen mit dem Inhalt eines RichTextFeldes aus einem Dokument im BackEnd (note), welches ich auch bereits im Zugriff habe. Die Funktion 

    Call stream.WriteText(note.GetItemValue("Body")(0))

macht ja leider aus dem im RichText-Feld bereits formatierten Text einfachen PlainText. Wie kriege ich den Inhalt des Feldes (wie gesagt der ist formatiert) in den Body der Internetmail?

Vielen Dank schonmal im voraus?

Sub Initialize

  Dim s As New NotesSession

  Dim db As NotesDatabase

  Dim doc As NotesDocument

  Dim body As NotesMIMEEntity

  Dim header As NotesMIMEHeader

  Dim stream As NotesStream

  Set db = s.CurrentDatabase

  Set stream = s.CreateStream

  s.ConvertMIME = False ' Do not convert MIME to rich text

  Set doc = db.CreateDocument

  Call doc.ReplaceItemValue("Form", "Memo")

  Set body = doc.CreateMIMEEntity

  Set header = body.CreateHeader("Subject")

  Call header.SetHeaderVal("MIME message")

  Set header = body.CreateHeader("To")

  Call header.SetHeaderVal("Roberta Person")

  Call stream.WriteText(note.GetItemValue("Body")(0))

  Call body.SetContentFromText _

  (stream, "text/plain;charset=UTF-8", ENC_NONE) 

  Call doc.Send(False)

  s.ConvertMIME = True ' Restore conversion

End Sub

[m3]

http://publib.boulder.ibm.com/infocenter/domhelp/v8r0/index.jsp?topic=/com.ibm.designer.domino.main.doc/H_CONVERTTOMIME_METHOD.html
http://www.geniisoft.com/showcase.nsf/MidasLSX

[Alexander 28]

hi m3,

herzlichen Dank. Das hat mir weitergeholfen. Arbeite erst kurz mit 8.5.1