Creare un Rich-Text da un HTML - for 6 and 7ND

E' oramai noto per tutti gli sviluppatori come creare HTML da un File HTML...mentre per realizzare il contrario spesso ci si appoggiava su tools di terze parti, di conseguenza scrivere da WEB tramite editor WYSIWYG e poi visualizzarne il contenuto in un client Notes non è stata mai cosa facile.
Sul sito di Steve Casteldine viene rilasciato questo semplice script che permette di convertire un campo HTML in un rich-text.

Buon Divertimento!

Dim strHTML as string
strHTML="Some Bold Text"

call doc.RemoveItem("content")

Dim mime As NotesMIMEEntity
Dim stream As NotesStream
Set stream = session.CreateStream
Call stream.WriteText(strHTML)
     
Set mime = doc.CreateMIMEEntity("content")
Call mime.SetContentFromText (stream, "text/html;charset=UTF-8",ENC_NONE)

La fonte ufficiale è presente qui