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
| 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,
Weitere Verknüpfungen