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

来源:互联网 发布:it网络学院 编辑:程序博客网 时间:2024/05/22 17:20

思路:

         首先创建一个临时文档(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)
原创粉丝点击