copy - Lotus Notes 7 - 用于复制父文档和响应文档的预定代理。不改变UNID

Question

我问了一个问题（Lotus Notes 7 - 复制/移动文档。（父和响应文档）而不更改 UNID？），我收到了一个对我有很大帮助的答案！谢谢克努特赫尔曼！

它工作正常，它是一个致力于选择文档的代理。我想知道是否可以创建一个每天运行一次的调度代理？这意味着用户不应手动选择文档并运行代理。

感谢您的时间和您的分享信息！

Answer 1

是的你可以。看这里。您可以在代理的属性中设置计划：

您可以选择要选择的文档。在示例中将选择所有数据库的文档。如果您选择“无”，则由您在代理代码中选择您的文档，例如 NotesDocumentCollection。

对于您的情况，最简单的方法是选择所有文档并添加一个 if 语句来测试文档是否尚未在目标数据库中：

Set docSource = col.Getfirstdocument()
While Not docSource Is Nothing
    If docTarget.GetDocumentByUNID(docSource.UniversalID) Is Nothing then
        Set docTarget = dbTarget.Createdocument()
        Call docSource.Copyallitems(docTarget, True)
        docTarget.UniversalID = docSource.UniversalID
        Call docTarget.save(True, False)
        Set docSource = col.Getnextdocument(docSource)
    End If 
Wend