OLE Automation For Richtext Format to send mail from VFP to Lotus Notes

Recently I'm in the process to send mail from VFP(Ver6) to Lotus Notes(Ver6.5) and as a result I'm using

OleClass = "richtext.richtextctrl.1"

and store value TextRTF in memo field whatvalue in Cursor Temp. Now to do LotusNotes automation I stated below code:-

Local Maildb, MailDoc,Body, Session, lcBody, Server,MaildbName, attached, Stream, RichTextItem, BodyMime
Select Temp
go top
lcBody=Temp.whatvalue

attached=LOCFILE('', 'DOC', 'Select File')
* Start a session to notes
Session = CreateObject("Lotus.NotesSession")
*This line prompts for password of current ID noted in Notes.INI
Session.Initialize()
Session.ConvertMime=.F. && Read-write. &&
        && Indicates whether items of type MIME_PART &&
&& are converted to rich text upon NotesItem instantiation. &&

*Open the mail database in notes
Server = Session.GetEnvironmentString( "MailServer",.T.)
MaildbName = Session.GetEnvironmentString( "MailFile",.T.)

* open the notes mail database
Maildb = Session.getdatabase(Server, MaildbName )

*Create the mail document
MailDoc = Maildb.CREATEDOCUMENT
MailDoc.ReplaceItemValue("Form", "Memo")
*Set the receipient
MailDoc.ReplaceItemValue("SendTo", [email protected])
*Set subject
MailDoc.ReplaceItemValue("Subject", "Subject Text")
*Create and set the Body content
*Body = MailDoc.CREATERICHTEXTITEM("Body") && for Plain Text setting

*Body.APPENDText( Allt(lcbody) )  && not using due to RTF String

***MIME Entry
Stream=Session.CreateStream() && Create a Notes Stream Object,
Stream.WriteText(lcbody)     && Write text into the Stream

BodyMIME = MailDoc.CreateMIMEEntity()

BodyMIME.SetContentFromText( Stream,"Text/RTF;charset=UTF-8", .F. )
   *Session.ConvertMime=.T. && True indicates that MIME items are converted to rich text. &&
 && False indicates that MIME items are not converted.If use html,replace "Text/RTF" with "text/html" &&

** Attachment
RichTextItem = MailDoc.CreateRichTextItem("Attachment")

if !Empty(attached)=.T.
	RichTextItem.EmbedObject(1454, "", attached,"Attachment" )
Endif

*Example to create an attachment (optional) for plain Text
*Body.ADDNEWLINE(2)
*Body.EMBEDOBJECT(1454, "", attached, "Attachment")

Maildoc.ReplaceItemValue( "Logo", "StdNotesLtr3" )
Maildoc.ReplaceItemValue( "_ViewIcon", 23 )
Maildoc.ReplaceItemValue( "SenderTag", "Y" )
Session.ConvertMime=.T.
*Example to save the message (optional)
MailDoc.SAVEMESSAGEONSEND = .T.

*Send the document
*Gets the mail to appear in the Sent items folder
MailDoc.ReplaceItemValue("PostedDate", DateTime())
MailDoc.SEND( .F. )

In view of above, my notes programme body of the mail is not convert RTF character to appropiate format(!).it is appearing something like this : {\rtf1\ansi\deff0{\fonttbl{\f0\fnil\fcharset0 Arial;}}
{\colortbl ;\red255\green0\blue0;}
\viewkind4\uc1\pard\cf1\lang1033\ul\b\i\fs18 TXTMAILBODY\cf0\ulnone\b0\i0
\par }

Will you please describe what am I missing here.?

With Regards