Sending Mails With Rich Text Tables from XPages

I am amazed at the extent to which the lotus script libraries are mimicked in the Server Side Javascript libraries in XPages . The following is a simple illustration of a scenario that amazed me --- sending mails with rich text tables from an XPage.

Copy and paste the following code fragment into a XPage button control, preview the same on the Browser or Notes Client and you are ready to go.
Ensure that you give your own mail address so that you can check the functionality

/*******************************************************/

//change the mail address to test it for your self
var mailAddress="ozinisle.inferno@blogspot.com";

var currDB: NotesDatabase=session.getCurrentDatabase();
var mailDoc:NotesDocument=currDB.createDocument();
var bodyRt:NotesRichTextItem=mailDoc.createRichTextItem("Body");
var RTELEM_TYPE_TABLECELL =7;

mailDoc.replaceItemValue("Form","Memo");
mailDoc.replaceItemValue("SendTo",mailAddress);
mailDoc.replaceItemValue("Subject","XPage Mail");

bodyRt.appendTable(3,4);
bodyRt.update();

var bodyRtNav:NotesRichTextNavigator=bodyRt.createNavigator();
if (bodyRtNav.findFirstElement(RTELEM_TYPE_TABLECELL))    {
    bodyRt.beginInsert(bodyRtNav);
    bodyRt.appendText("hi this is my value");
    bodyRt.endInsert();
}    else {
    getComponent("errs").setValue('no table found');
}

try {
    if (bodyRtNav.findNextElement(RTELEM_TYPE_TABLECELL))    {
        bodyRt.beginInsert(bodyRtNav);
        bodyRt.appendText("hi this is my other value");
        bodyRt.endInsert();   
    }
}    catch (exp)    {
    getComponent("errs").setValue(getComponent("errs").getValue()+ @NewLine()+'no table found 2');
}

bodyRt.update();

mailDoc.send();


/*******************************************************/

Hope this helps :)