Icon problem of attachments

My agent attaches the scanned files form file dir into Body NotesRichTextItem class in NotesDocument.Using this script from designer help :

Set rtitem = New NotesRichTextItem( doc, “Body” )

Set object = rtitem.EmbedObject ( EMBED_ATTACHMENT, “”, “c:\test.pdf”)

produces uncorrect icon in richtext field !

The “@Command( [EditInsertFileAttachment] )” make correct icon.

Thanks for help

Subject: Did you search before asking?

http://www.google.com/search?hl=en&rlz=1G1GGLQ_ENUS293&q=EmbedObject+icon+lotus&aq=f&aqi=m1&aql=&oq=&gs_rfai=