如何将一条文档中的附件（用文件上载控件上传的附件）复制到另一条文档中？？？？

[qyh]

如何将一条文档中的附件（用文件上载控件上传的附件）复制到另一条文档中？？？？

[hhxz770]

@_@ 'RTF域值后台传递
Dim RTItem As NotesRichTextItem
Dim rtitem2 As notesrichtextitem
If uidoc.editmode Then
Set RTItem2 = New notesrichtextitem(doc,"Rtf_fj")
Set RTItem2=Doc.GetFirstItem("Rtf_fj")
Call UIdoc.Save
Else
Set RTItem2=Doc.GetFirstItem("Rtf_fj")
End If

Call newDoc.RemoveItem("Rtf_fj")
Call newDoc.RemoveItem("$File")
Call RTItem2.CopyItemToDocument(NewDoc,"Rtf_fj")

Call newdoc.save(True,False)

[qyh]

可是附件已经在 $File 中了，是对两条文档的$File进行操作。

[jsyey]

不知道具体情况，一个简要方案
文档1用NotesEmbeddedObject.extractfile释放到一个本地目录上去
文档2将它embeded到一个rtf中去

[linshao16]

set item = doc1.getfirstitem("$File")
ss = item.values(0)
Set obj = doc1.getattachment(ss)
Call obj.extractfile("c:\"+ss)
Set rtitem = New NotesRichTextItem( doc2, "Body" )
Set object = rtitem.EmbedObject(EMBED_ATTACHMENT, "", "c:\"+ss)