How to get the attach file name using script

Hi I have a document with a Rich Text field and in that field I have attach a user id i.e ljohn.id. Now using the script I want to get the file name i.e ljohn.id.

How can I get that.

Thanks for help.

Lisa

Subject: Evaluate() and @AttachmentNames

How about using @AttachmentNames in an Evaluate statement? (This assumes, however, that the document doesn’t contain attachments in other rich-text fields or to the document itself.)

Subject: How to get the attach file name using script.

Dim doc As NotesDocumentDim rtitem As Variant

'…set value of doc…

Set rtitem = doc.GetFirstItem( “Body” )

If ( rtitem.Type = RICHTEXT ) Then

Forall o In rtitem.EmbeddedObjects

 Print o.Name

End Forall

End If

Ashish