把domino中文档中的附件拷贝考另外的一个文档中

思路：

         首先创建一个临时文档(docOld),把所有域的内容删除,只保留附件的内容,然后把该文档的所有内容拷贝到目标文档(docNew),参考代码：

Dim docOld As NotesDocument
Dim docNew As NotesDocument
Forall itemTemp In docOld.Items
    If itemTemp.name <> "$FILE" Then
        Call itemTemp.remove
    End If
End Forall
Call docOld.CopyAllItems(docNew,False)
Call docNew.Save(False,False)