I can get attachments using the EmbeddedObjects property, but not graphics in a message. I'm using this code to test to see what is embedded:
If Isarray(rtItem.EmbeddedObjects) Then
Forall Object In RTItem.EmbeddedObjects
Select Case Object.Type
Case EMBED_ATTACHMENT:
Messagebox "Attachment"
Case EMBED_OBJECT:
Messagebox "Embedded"
End Select
End Forall
End If
Requires Free Membership to View
Register today to access targeted resources from our editorial writers and independent industry experts focused on Lotus Domino, Notes, Workplace and other related technologies.
img src), the "object" is NOT and OLE object, and, therefore, is not accessible through the code you are calling.The code you are writing is correct for handling any file attachment or OLE file (i.e., [Create] menu --> [Object]), but will not work if the "object" you are looking at is enclosed in HTML.
Add some code to go directly to the source of the referenced file and save it to your required location, along with any other EmbeddedObjects in the document.
This was first published in July 2005