LotusScript 代理不工作

Question

我在使用此代理时遇到问题 - 我在类似的代理中使用了完全相同的技术，但由于某种原因，客户端报告了此行的错误：

Set dc = locView.GetAllDocumentsByKey(key, True)

它表示未设置对象变量。你能帮我找到我缺少的东西吗？

提前致谢。

%REM
Sub as_archiveOldDocuments
Description:
This agent archives documents that are more than one week old.
This is so that the dataset used is kept current - view selections only select documents
whose archived field value is equal to zero. For that reason, this agent detects whether
or not a document in the set is more than a week old. If it is, the Archived field is
marked as '1'.

Function calls: N/A
Sub calls: N/A
Called in event: N/A
Called by: ag_archiveOldDocuments

%END REM
Public Sub as_archiveOldDocuments

Dim s As NotesSession
Dim locDb As New NotesDatabase(****)
Dim locView As NotesView
Set locView = locDb.GetView("byNameDateLocCode")
Dim dc As NotesDocumentCollection
'Set dc = locDb.CreateDocumentCollection()
Dim key (0 To 1) As Variant
Dim archiveDate As NotesDateTime
Set archiveDate = New NotesDateTime(Today)
Call archiveDate.AdjustDay(-7)
Dim thisDoc As NotesDocument
Dim unarchived As Integer
Let unarchived = "0" 

'populate key to build document collection, then build it
key(0) = archiveDate.DateOnly
key(1) = unarchived
Set dc = locView.GetAllDocumentsByKey(key, True)

'find first document in the collection
Set thisDoc = dc.GetFirstDocument()

'while the doc collection exists
While Not dc Is Nothing

    'if the date value in the document is less than the archiveDate value specified (today -7)
    If thisDoc.Date <= archiveDate.DateOnly Then

        'replace the archived value (which will be '0') with '1'
        Call thisDoc.ReplaceItemValue("Archived", "1")
        Call thisDoc.ComputeWithForm(False,True)
        Call thisDoc.Save(True, False, False)

    End If

    Set thisDoc = dc.GetNextDocument(thisDoc)

Wend

结束子

Answer 1

这行很可能失败：

Set locView = locDb.GetView("byNameDateLocCode")

What do you see for locView in the debugger?如果它不是有效的视图，请检查视图名称以确保其与上述内容匹配，并检查数据库 ACL 和视图的任何限制以确保您具有所需的权限。如果代理作为 Web 代理运行，请确保签名者和/或服务器具有所需的权限（取决于代理运行时身份的设置）。如果数据库 locDb 与运行代理的服务器位于不同的服务器上，请确保目标服务器授予代理服务器“受信任的服务器”权限。