Domino 9 und frühere Versionen > ND6: Entwicklung

HTML in RichText umwandeln

(1/1)

guerilla:
Halli hallo...

Folgendes Problem: Ich erzeuge einen HTML-Text in einem RT-Feld. Diesen möchte ich später per email verschicken - logischerweise in dieser Formatierung.

Jetzt mache ich das ganze per Script, hol mir den Text, alles prima.
ich erzeuge ein neues Maildocument, einen RichTextStyle und gebe ihm die Eigenschaft "passthroughHTML = true".

Das wende ich auf das Feld an und füge dann den HTML-String ein.

Wenn die email dann ankommt, habe ich allerdings null formatierung, die html-tags stehen im text. Aber es wird definitiv in einem Richtextfeld gespeichert, die konsole zeigt auch eine Konvertierung nach RT an...


--- Code: ---
Forall recipient In adrarr
Msgbox recipient

Set maildoc = xDB.CreateDocument

Dim Body As New NotesRichTextItem(maildoc, "Body")
Dim rtStyle As NotesRichTextStyle
Set rtStyle = xs.CreateRichTextStyle
rtStyle.PassThruHTML = True

maildoc.from = "Info <info@server.de>"


Call Body.AppendStyle(rtStyle)
Call Body.AppendText(inhalt)


maildoc.Subject = betreff
maildoc.Form = "Memo"
maildoc.FormName = "Memo"

maildoc.SendTo = recipient
maildoc.Recipients = recipient

'--- email in Maildatenbank kopieren, eigentliches Dokument löschen
If Not xMailDB Is Nothing Then
Call maildoc.Save(True,False)
Set tmpdoc = maildoc.CopyToDatabase(xMailDB)
' Call maildoc.Remove(1)
End If


End Forall


--- Ende Code ---

m3:
Wird so nicht klappen, funktioniert manuell auch nicht.
Du musst das HTML-Mail händisch (MIME-Felder) zusammenbauen.

guerilla:
Soll heissen: Text parsen etc?

m3:
Nein. Du willst Dir NotesMIMEEntity oder http://atnotes.de/index.php?topic=11796.msg65914#msg65914 ansehen.

guerilla:
ähm, was sag ich da jetzt? danke?  ;D

- Danke. Bin heut ein wenig neben der Spur.

Navigation

[0] Themen-Index