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
domino 判断文件中的所有作者或者读者-权限判断
最新推荐文章于 2024-08-17 17:39:04 发布