How Can I Access the Photo Image on local names throught LotusScript?

Hi,

I am getting crazy trying to guess how I can access, from Lotus Script, to the PHOTO picture you can insert on your local names. I need to do a little utility to access that photo using Domino Object (COM), If i have and example of LotusScript I would be able to port it…

I tryed to access the PHOTO rich text using :

Dim workspace As New NotesUIWorkspace

Dim uidoc As NotesUIDocument

Dim doc As NotesDocument

Dim item As NotesItem

Dim Object As NotesEmbeddedObject

Set uidoc = workspace.CurrentDocument

Set doc = uidoc.Document

Set item = doc.GetFirstItem(“Photo”)

I got the RICHITEM Value Photo, but I can not then access to the embeed photograph using the NotesEmbeddedObject . It seems there is not embeedobject attached, althought when I check properties on doc, I see there is a $FILE on the document with the name ContactPhoto…

I would appreciate any example to get that image on an object that I can either extract to disk as a .bmp / .jpg, or visualizate on screen using domino objects…

thks