RTF --> HTML

[Ayhan]

Hallo Leute,

ich bastle grad eine Newsletter-Anwendung. Hier soll die Möglichkeit gegeben sein, dass ich aus RTF-Feldern eine HTML-Mail generieren soll und das ganze an die entsprechenden Leute verschicken soll. Funktioniert alles - bis auf ein kleines Detail - auch hervorragend.

Detail:
Bei der Umwandlung von RTF --> HTML krieg ich im Quellcode unerklärliche Zeichen (Gleichheitszeichen, irgendwelche numerische Zeichen). Das ganze mache ich mit folgendem vereinfachtem Code:

*schnipp*
Dim item As NotesItem
Dim mime As NotesMimeEntity
         
....
s.ConvertMime=False
Set item = doc.GetFirstItem("body")
Set mime = item.GetMimeEntity
....
*schnapp*

Kennt jemand das Problem? Leider habe ich bei der Suche hier im Forum nie richtig einen Treffer gelandet.

[Timo Schüring]

Falls es noch jemanden interessiert 

Ich hätte ne Lösung.

Code

	Dim s As New NotesSession
	Dim uiws As New NotesUIWorkspace
	Dim fileNum As Long
	Dim uidoc As Notesuidocument
	Dim Path, HtmlText As String
	
	Path = s.GetEnvironmentString("Directory",True) + "\delete_me.html"
	
	fileNum = Freefile()
	Open Path For Output As fileNum
	HtmlText = |hier den Html Quellcode reinhauen|
	
	Print #fileNum, HtmlText	
	Close fileNum	
	Set uidoc = uiws.ComposeDocument( "", "", "mime test")
	Call uidoc.GotoField("body")
	Call uidoc.Import("HTML File",Path)
	Kill Path

Der Code macht folgendes.
Er generiert eine temporäre Html Datei im Daten Verzeichnis von Lotus Notes. Importiert diese dann in ein UI Dokument über den "HTML File" Filter.
Anschliessend löscht er die Datei wieder.

Dieser Code kann auch gut dafür benutzt werden um im 5er Client dynamische Ausgaben oder Auswertungen (z.B. mit Tabellen) zu generieren.

Ach ja, die benutzte Maske, sollte ein RTF Feld haben das den Inhalt als Html und Mime Type abspeichert.