Creating a table through agent in web using richtext

HCL Domino Domino Forum
1

hi All

i have to create a table through agent in web. i have written this code please go thru it & guide me

here is the agent

Dim s As New notessession

Dim currentDb As NotesDatabase

Dim mailDoc As NotesDocument

Dim bodyitem As NotesRichTextItem

Dim richStyle As NotesRichTextStyle

Set currentDb =s.CurrentDatabase

Set mailDoc = currentDb.CreateDocument

Set richStyle = s.CreateRichTextStyle

Set bodyitem= New NotesRichTextItem(mailDoc,“body”)

mailDoc.form=“Memo”

mailDoc.subject=“Mysmartdrive registration confirmation”

mailDoc.sendto="sanjay.prasad@demo66.v2solutions.com"

richStyle.PassThruHTML = True

Call bodyitem.AppendStyle(richStyle)

??? here i have to create table ???

Call bodyitem.AppendText(“Hello”)

Call bodyitem.AppendStyle(richStyle)

Call mailDoc.save(True, False)

mailDoc.Send(False)

Thanks & Regards

Sanjay

2

Subject: creating a table through agent in web using richtext

Hi

Take a look at the NotesRichTextTable class.

regards

Jesper Kiaer

htttp://www.jezzper.com