LOTUSSCRIPT/COM/OLE CLASSES

Examples: EmbeddedObjects property
This script goes through all the file attachments, object links, and embedded objects in the Body item of a document. Each time it finds a file attachment, it detaches the file to the SAMPLES directory on the C drive and removes the attachment from the document. The script has no effect on the object links or embedded objects in the Body item.

Dim doc As NotesDocument
Dim rtitem As Variant
'...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
 Forall o In rtitem.EmbeddedObjects
   If ( o.Type = EMBED_ATTACHMENT ) Then
     Call o.ExtractFile( "c:\samples\" & o.Source )
     Call o.Remove
     Call doc.Save( False, True )
   End If
 End Forall
End If

See Also