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...
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
