IBM Lotus Domino Designer 8.5
  Versions 8.5 and 8.5.1

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

---

Library | Support | Terms of use |

Last updated: Monday, October 5, 2009