How to Remove Attachment compltely Without image

How to Remove the Attachment completely without image .

I have used the function

NSFNoteDetachFile( NoteHandle, AttachmentBlockId);

This function is removing the attachment but its not deleting Attachment icon.

Please help me how to Remove the attachment icon.

Subject: try to remoev all $FILE

this may need to loop and delete all $FILE item

Subject: how to delete Attchment icon

I need to delete only one attachment.I have used NSFNoteDetachFile to delete but it is deleting the attachment but it is not removing Attachment icon.

Please help how to delete the attachment icon

Subject: psl try Remove in NotesEmbeddedObject class

Remove method will remove only given file-name

Dim rtitem As Variant

Set rtitem = doc.GetFirstItem(“RT field-name where file located/attached”)

Dim object As NotesEmbeddedObject

Set object = rtitem.GetEmbeddedObject(“file-name / object’s name”)

Call object.Remove

Call doc.Save( True, True )