Hallo zusammen,
ich möchte folgendes realisieren:
per Button-Click soll HTML-Code in ein RichText-Feld kopiert werden und dort als HTML und nicht als reiner Text angezeigt werden.
Ich habe den Style des RT-Felds als "passThru HTML" definiert und schaffe es auch, den Code dort hinein zu kopieren.
Beim Neu-Öffnen des Dokumentes zeigt mir das Feld allerdings immer nur den reinen Text an und nicht wie gewünscht HTML.
Ich verwende folgenden Programm-Code:
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Call uidoc.save
Dim richStyle As NotesRichTextStyle
Set richStyle = session.CreateRichTextStyle
Dim richText As New NotesRichTextItem(doc, "HTML")
richStyle.PassThruHTML = True
Call richText.AppendStyle(richStyle)
Call richText.AppendText(|<html> <head> </head> <body> <p>HTML</p> </body> </html>|)
Call doc.Save(True, False)
Call uidoc.Close
End Sub
Kann mir jmd. weiterhelfen? Warum wird mein HTML-Code als reiner Text angezeigt, obwohl ich passThru HTML aktiviert habe?
Kann es sein, dass man im Notes Client (das Dok soll nicht im Web betrachtet werden) so etwas gar nicht realisieren kann, also kein HTML innerhalb von RT-Feldern darstellen kann?
Bin für Hilfe dankbar!!
Thema: PassThru HTML im Notes Client (Gelesen 6375 mal)