Das Notes Forum
Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: Alexander 28 am 28.04.11 - 14:50:42
-
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
-
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
-
hi m3,
herzlichen Dank. Das hat mir weitergeholfen. Arbeite erst kurz mit 8.5.1 ;D