Take the code snippet below. The RTitem.EmbedObject method will not embed the object in the richttextitem. The object can not be retrieved with the rtitem.GetEmbeddedObject method. It can retrieved by looping through the notesdocument.EmbeddedObjects property.
Code :
If Not docCurrent.Hasitem(“Container”) Then
Set RTitem = docCurrent.CreateRichTextItem("Container")
Else
Set RTitem = docCurrent.GetFirstItem("Container")
End If
'+ Checking if container contains an ole object
Set notesEmbeddedObject = rtitem.GetEmbeddedObject( “Business!” )
If notesEmbeddedObject Is Nothing Then
Set notesEmbeddedObject = RTitem.EmbedObject(EMBED_OBJECT,"", "c:\letters\brief2003.doc","Business!")
End If
Set handle = notesEmbeddedObject.Activate( True )
call docCurrent.Save(true, true)
Kind regards