This Java code will return an HTML version of a Lotus Notes rich-text field to the calling routine. Exceptions are handled via an excellent logging tool from Openntf.org.
This Java code relies on being able to create a Lotus Notes document in the current Domino database using a form called MimeConvert.
The rich-text source field is appended to the RichTextField class on the MimeConvert form. Next, the Lotus Notes document is saved and then read as an InputStream; which gives an HTML representation of the entire page. Finally, the body is split away from the rest of the HTML page, leaving the HTML representation of the original RichTextField.
import lotus.domino.*;
import java.net.*;
import java.io.*;
public class HTMLConverter{
// standard logging object
private OpenLogItem oli = new OpenLogItem();
// Method. parameters are the Server &
Database to open that will be used to do the conversion,
normally the current db; the NoteID of the document
and the fieldname to load into our converter
public String getHTML(Database thisdb,
Document sourceDoc, String fieldName)
throws NotesException, IOException {
try{
// get the field that we need to examine
RichTextItem sourceField = (RichTextItem)
sourceDoc.getFirstItem(fieldName);
//
// Prepare a simple document in this database
to store the richtextfield we want to convert to HTML
Document newND = thisdb.createDocument();
newND.appendItemValue("Form","MimeConvert");
RichTextItem newRTItem = newND.
createRichTextItem("RichTextField");
newRTItem.appendRTItem(sourceField);
newND.save( true,true,true);
// get the URL that will open that document
URL docURL =new URL(newND.getHttpURL());
// Get document as an HTMLstring as seen by
the current domino server
BufferedReader bin = new BufferedReader
( new InputStreamReader(docURL.openStream() ));
// tidy up
newRTItem.recycle();
newND.recycle();
// Convert the datastream into a string...
String line;
StringBuffer sb = new StringBuffer();
while ( (line = bin.readLine( )) != null ) {
sb.append(line);
}
String fullPage = sb.toString();
// fullPage now contains the HTML of the entire
page but we only want the bit between the body tags.
String[] passOne = fullPage.split("</body>");
String[] body =passOne[0].
split("<body text="#000000" bgcolor="#FFFFFF">");
return body[1]; // this should contain
only the text between the body tags.
}
catch (Exception e) {
oli.logError(e);
return null;
}
}
}
MEMBER FEEDBACK TO THIS TIP
It is possible to accomplish the same thing with a LotusScript function:
Sub AppendNotesLink(db As notesdatabase,
rtitem As NotesRichTextItem,NotesUrL As String)
'# =================================
===================================
==================#
'Auteur : Mostapha El yagoubi
'Date : 14/12/2007
'Description : 'Sous outlook,
les liens Notes:// ne sont pas
cliquables lorsqu'on
les colle en appendtext dans un
richtextitem
'Cette fonction permet de
contourner le problème
en créant un champ MIME temporaire
'On colle ensuite son contenu dans le richtext
initial envoyé
en paramètre (Methode Appendrtitem)
'# =============================
===========
===========================
====================#
'\* Déclarations
Dim tmpDoc As notesdocument
Dim tmpRtitem As NotesRichTextItem
Dim stream As NotesStream
Dim mime As notesmimeentity
Dim EtatMime As Boolean
On Error Goto TrtErreur
'\* Création du doc temporaire
(on ne l'enregistre pas)
Dim session As New notessession
Set tmpDoc = db.CreateDocument
'\* Création du richText
temporaire au format MIME =
on y colle le lien Notes://
Set mime = tmpDoc.
CreateMIMEEntity("Body")
Set stream = session.CreateStream
Call stream.WriteText(|<u>
<Font size="1" face="Arial" color="0000FF">
<a href="| & NotesUrL & |">| & Lcase(NotesUrL)
& |</a></font></u>|)
Call mime.SetContentFromText(stream,
"text/html", ENC_NONE)
EtatMime = session.ConvertMime
session.ConvertMime =
True '\
Autoriser la conversion le MIMEen rich text
Call tmpDoc.
CloseMIMEEntities(True,
"Body")
Set tmpRtitem = tmpDoc.GetFirstItem
("Body")
'\* On colle le
MIME dans le richtext
Call rtitem.Appendrtitem
(tmpRtitem)
session.ConvertMime =
EtatMime '\
On remet le flag mime a l'etat ou on
l'avait trouvé
Sortie :
Exit Sub
TrtErreur: '\* En cas d'erreur on
ne fait rien on
sort mâme si le lien doc n'est pas
créé
Print "Erreur "
& Cstr(Err) & " -> " &
Error$( Err ) & " à la ligne "
& Erl & " : AppendNotesLink"
Resume Sortie
End Sub
—Mostapha E.
******************************************
I tried to implement this for a project, but encountered several limitations. The routine worked only in Java (LS2J) and only on the Lotus Domino server.
To obtain the same results faster -- in LotusScript and/or Java and on the local database and/or Lotus Domino server -- set the storage content on the rich-text field of the second tab under "field properties" to "HTML and MIME."
There's no need to fetch the actual page using an HTTP socket, and the extra HTML tags, i.e. <html> and <body>, are parsed out.
—Thierry D.
Do you have comments on this tip? Let us know.
This tip was submitted to the SearchDomino.com tip library by member Philip West. Please let others know how useful it is via the rating scale below. Do you have a useful Lotus Notes, Domino, Workplace or WebSphere tip or code snippet to share? Submit it to our monthly tip contest and you could win a prize.
