Lotus notes 将文件附加到Lotus文档中的富文本项

我正在尝试将一个文件附加到Lotus中的文档中。我的文件位于c:\dev\3.txt中，我的表单是Test，我要附加字段的richtext字段是“Test”。我尝试使用此Lotusscript代码将文件附加到字段“test”中，但它将文件放在文档末尾，而不是字段中：

Dim uidoc As notesuidocument
Dim w As New notesuiworkspace
Dim object As NotesEmbeddedObject
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Set uidoc=w.currentdocument
Set doc = uidoc.Document

Set rtitem = doc.GetFirstItem( "test" )
Set object= rtitem.EmbedObject(EMBED_ATTACHMENT, "", "C:\dev\3.txt")
doc.Form = "Test"

Call doc.Save( True, False)

Call uidoc.Close

请尝试使用以下代码：

files = workspace.OpenFileDialog(True, "File List","", "")
Forall i In files
  Set object = rtitem.EmbedObject(EMBED_ATTACHMENT, "",i,"")
End Forall

---

“测试”真的是Richtextitem吗？乍一看，我看不出您的代码有任何错误……看起来这是操作按钮代码，因此前端/后端文档同步可能存在问题。我已经很久没有玩过它了，但如果是这样的话，那么这个老技术可能是关键：跟进Torsten的问题：你可能想用if（rtitem.Type=RICHTEXT）检查一下，然后。。。或者即使（doc.HasItem（“test”））那么。。。