domino 判断文件中的所有作者或者读者-权限判断

Function DocreadCheck(doc As NotesDocument) As String
    On Error GoTo errors

    Dim sResult As String
 
 
    Dim item As Variant
    
    Dim h  As Integer
    h=0
    
    'ForAll itemA In doc.Items
    '    If ( itemA.IsAuthors ) Then
    '        MessageBox 
    '    End If
    'End ForAll
    
    
    ForAll i In doc.Items        
        Set item = i        
        'MessageBox "h="+CStr(h)+"  v="+item.Values        
        h=h+1    
        Dim peritemsResult As String
    
        
        If i.IsReaders Or i.IsAuthors Then
            MessageBox  "@item name= "+ CStr(item.name)+"   item.Type"+CStr(item.Type)+" 读者 或者作者域"        
                 
                ForAll X In i.Values
                    If X<>"" Then
                        MessageBox "   item    Values x="+X
                    End If
                
                End ForAll
        End If
        
    End ForAll
 
 
    Exit Function
errors:
    DocreadCheck=""
 
    MessageBox  Error()+" at line:" +Cstr(Erl())+",func yes_doc_to_json"
End Function