Inna I Skorina 4.Oct.02 06:26 AM a Web browser Conversion of existing workflowsAll ReleasesAll Platforms
I ought to place an object link in a rich-text item.
But I have an error "Could not embed object".
I don't know what to do.
My script is below.
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim ob As NotesEmbeddedObject
Set uidoc = workspace.CurrentDocument
Set doc=uidoc.Document
Set rtitem=doc.getfirstitem("test")
If rtitem Is Nothing Then Set rtitem = doc.CreateRichTextItem( "test" )
If uidoc.isnewdoc Then uidoc.editmode=True
path$="d:\СЭГ-руководство.doc"
Set ob= rtitem.EmbedObject( EMBED_OBJECTLINK, "",path$)
Call doc.Save(True,False)
Return to top
EMBED_OBJECTLINK (Inna I Skorina 4.Oct.02)
. . 
Print this page
