首页 文章

将文件附加到 Lotus Document 中的 RTF 项目

提问于
浏览 次
1

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

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
lotus-notes attachment lotusscript lotus richtext

1 回答

  • 1

    尝试使用以下代码：

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

相关问题