我有一个“移动文档”按钮,据说它应该将选定的文档移动到另一个文件夹。我使用过PutAllInFolder
,但它只将文档复制到“移动文档”文件夹。是否有另一种方法可以将它们完全移动到另一个文件夹或视图?
这是我的代码:
Sub Click(Source As Button)
Dim session As New notessession
Dim dbCur As notesdatabase
Set dbCur = session.currentdatabase
Dim collSelected As notesdocumentcollection
Set collSelected = dbCur.UnprocessedDocuments
Call collSelected.PutAllInFolder("Move Document")
Dim uiw As New notesuiworkspace
Call uiw.viewrefresh
End Sub