訪問ACL條目

Question

有人可以解釋爲什麼此代碼不起作用。我在作者字段中沒有任何值，也沒有打印任何內容。

Sub Querysave(Source As Notesuidocument, Continue As Variant) 

    ' Add users with role R* to Authors 
    Dim s As New NotesSession 
    Dim e As NotesACLEntry 
    Dim it As NotesItem 

    Set it = Source.Document.GetFirstItem("Authors") 

    Set e = s.CurrentDatabase.ACL.GetFirstEntry 
    While Not e Is Nothing 
     Print e.Name 
     If e.IsRoleEnabled("R1") Then it.AppendToTextList(e.Name) 
     If e.IsRoleEnabled("R2") Then it.AppendToTextList(e.Name) 
     Set e = s.CurrentDatabase.ACL.GetNextEntry(e) 
    Wend 

End Sub 

該數據庫位於服務器上，並在ACL中有條目。

Answer 1

我相信在LotusScript中還有其他地方需要創建類似的變量。所有的例子都是這樣寫的。毫無疑問，這是一個錯誤，我懷疑它被記錄在案。

Answer 2

我稍微改變代碼和它的工作原理：

Sub Querysave(Source As Notesuidocument, Continue As Variant) 

    ' Add users with role R* to Authors 
    Dim s As New NotesSession 
    Dim acl As NotesACL 
    Dim e As NotesACLEntry 
    Dim it As NotesItem 

    Set it = Source.Document.GetFirstItem("Authors") 

    Set acl = s.CurrentDatabase.ACL 
    Set e = acl.GetFirstEntry 
    Print e Is Nothing 
    While Not e Is Nothing 
     Print e.Name 
     If e.IsRoleEnabled("R1") Then it.AppendToTextList(e.Name) 
     If e.IsRoleEnabled("R2") Then it.AppendToTextList(e.Name) 
     Set e = acl.GetNextEntry(e) 
    Wend 

End Sub 

這是任何地方或簡單的破記錄。