Leider nicht das wonach ich suche. Ich muss das ganze in ein Item Lesen, und das im Back-End. Mein Ansatz war mit einem Dummydocument und Berechnetem Text zu arbeiten der als passthruHTML gemarkt ist. Dieser berechnete Text in Form "passthruHTML" liest den HTML Code aus Feld "text" aus, welches versteckt ist und ebenfalls in der Form liegt. Dieses Feld befülle ich dann mit Code, speichere das Dummydoc zwischen und render dann das Dokument in ein RT-Item. Funktioniert aber leider nicht da er den Text anscheinend nur im Front-End berechnet. :(
Auch das "passthruHTML" Dokument nochmal über ne View zu öffnen und zu rendern bringt keinen Erfolg.
Hier mal mein Simpler TestCode
Sub Click(Source As Button)
'Render HTML Code to RT-Item
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim doc As NotesDocument
Dim doc2 As New NotesDocument(db)
Set doc = db.CreateDocument
doc.Form = "renderHTML_to_RT_with_passthrouHTML"
Call doc.Save(True, False)
'Injezieren des HTML Codes
Dim inject As String
inject = "<b>hallo</b>"
doc2.Form = "passthruHTML"
doc2.text = inject
Call doc2.Save(True, False)
Dim vw As NotesView
Set vw = db.GetView("passthruHTML")
Dim doc3 As NotesDocument
Set doc3 = vw.GetFirstDocument
Dim item As New NotesRichTextItem(doc, "Body2")
Dim ok As Variant
ok = doc2.RenderToRTItem(item)
Call doc.CopyItem(item, "Body")
Call doc.Save(True, False)
End Sub
Der Code Workt soweit. Wenn ich das Feld "text" nicht mehr verstecke rendert er mir das wunderschön. (also den Text aus "text"^^)
Im Frontend tut der berechnete Text auch das was er soll. Welche möglichkeiten giebt es noch den HTML stuff in ein RT-Item zu rendern?
Danke dir Roland, ich hab das gestern dann innerhalb von 10 Minuten hinbekommen. Danke nochmal für den MIME Tipp! PS: War eig. überhauptkein Act. Was meinst du mit Komplex? :-:
Mein Testcode (der Funkt) sieht so aus:
Sub Click(Source As Button)
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
session.ConvertMime = False 'noch nicht in RT Rendern
Dim Docname As String
Docname = Cstr(Inputbox("Geben Sie die den Namen des Documents ein"))
Set doc = New NotesDocument(db)
doc.Form = "frmHTML_to_RTItem"
doc.Docname = Docname
Dim stream As NotesStream
Set stream = session.CreateStream
Call stream.WriteText(Cstr(Inputbox("Geben Sie den zu Rendernden HTML Code ein")))
Dim mime As NotesMimeEntity
Set mime = doc.CreateMIMEEntity
Call mime.SetContentFromText(stream, "text/html", 1728)
Call doc.Save(True, True)
session.ConvertMime = True
Messagebox("HTML erfolgreich gerendert")
End Sub
Funktioniert wunderbar :) :-*