To continue reading for free, register below or login
To read more you must become a member of SearchDomino.com
Nothing could be easier. But first, you must be aware that the object model doesn't match the user interface (UI):
' where doc is NotesDocument the document
you are attaching a document to
Dim object As NotesEmbeddedObject
Dim body as NotesRichTextItem
Set body = doc.GetFirstItem("body")
' Assume body field is garanteed to exist and
be rich text.
' OR, IF CREATING A NEW DOC: Set rtitem =
New NotesRichTextItem( doc, "Body" )
Set object = rtitem.EmbedObject
( EMBED_ATTACHMENT, "", yourFileName)
Do you have comments on this Ask the Expert Q&A? Let us know.
Related information from SearchDomino.com:
Expert Advice: Retrieve ID file as attachment in new mail using LotusScript
Learning Guide: LotusScript
Tutorial : 30 LotusScript tips
Reference Center: LotusScript resources and advice
|
