Mime Attachement against OLE Control

Dear Experts,

Recently I’m in the process to send mail thru VFP against OLE control for Lotus Notes. So I did the following for MIME entity for the body msgs

Stream=Session.CreateStream()&& Create a Notes Stream Object,

Stream.WriteText(lcBody) && Write HTML code into the Stream

BodyMIME = MailDoc.CreateMIMEEntity()

BodyMIME.SetContentFromText( Stream,“Text/html;charset=US-ASCII”, .F. )

BodyMime=MailDoc.CloseMIMEEntities(.T., “Body”)

in view of aboce evrtying is working fine but so far attachement is concerned I’m not very smooth. although I hv done the below code for file attachement for new mail i.e.

RichTextItem = MailDoc.CreateRichTextItem(“Attachment”)

if !Empty(attached)=.T. Then

RichTextItem.EmbedObject(1454, "", attached)

Endif

body msgs as well as attachement is avl in sent Item but mail receipent is not recvd the attachement . That means in SentItem the body of the messages is showing correctly and attachement is also showing in page break area of the body msgs. But surprisely receipent inbox that attachment is not available. Will you please kind enough what am I missing here

Does RichtextItem attachment can play with body mime, if yeas anything config to require in lotus notes as well as domino server

Eagerly awaiting your valuable suggestion

Best Regards

Subhankar