MemoHTMLToRTF()
MemoHTMLToRTF() – HTML-Text aus einem Memo in RTF konvertieren
Konvertiert einen HTML-Inhalt aus der Groupware nach RTF. Hierbei werden auch die Bilder, aus dem Anhang mit in das
RTF-Dokument gezogen.
| Parameter | Beschreibung |
|---|---|
cText:C | HTML-Text der konvertiert werden soll |
nMemoID:N | Zugehörige Memo-ID |
Rückgabewert
RTF-Text inklusive Bilder
Beispiel
CODE
| oMemoBo |
oMemoBo := CreateObject('TBeMemoBo'),
startseq,
oMemoBo.MemoID := 2289, // An ID mit z.B. E-Mail anpassen
// Handelt es sich um ein HTML-Memo -> Als RTF ausgeben
if IsTextHTML(oMemoBo.MemoValue) then
writeln(MemoHTMLToRTF(oMemoBo.MemoValue, oMemoBo.CbId)),
else
writeln('Memo enthält kein HTML'),
endif,
always,
DestroyObject(oMemoBo),
stopseq,