Set object = rtitem.EmbedObject ( EMBED_OBJECT, "", "e:\testword1.doc")为什么不行？

[lixuran]

Sub Click(Source As Button)
Dim w As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( doc, "Body" )
Set object = rtitem.EmbedObject ( EMBED_OBJECT, "", "e:\testword1.doc")
doc.Form = "WD"
Call w.EditDocument (True, doc)
Call doc.Save( True, True )
End Sub

到了Set object = rtitem.EmbedObject ( EMBED_OBJECT, "", "e:\testword1.doc")
总是报错 说对象不能嵌入，这是为什么？

[bbqgame]

我试过你的程序,没有报错,确定一下你的文件名是否正确.

[lixuran]

这段程序在Notes6中也没有问题
但是在Notes5中就不行