得到数据库存取控制列表中某个角色的人员代码,Domino代码库,德仔网

代码语言

代码分类

【Domino】得到数据库存取控制列表中某个角色的人员

作者: / 发布于2014/7/25/ 1504


	Function GetRoleMembers(rolename As String) As String
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim acl As NotesACL
	Dim entry As NotesACLEntry
	Dim stringmembers As String
	Dim foundRole As Variant
	Dim count As Integer
	Set db = session.CurrentDatabase
	Set acl = db.ACL
	foundRole = False
	' check to see if the role exists in the database
	Forall r In acl.Roles
	 If ( r = "[" & roleName & "]" ) Then
	 foundRole = True
	 Exit Forall
	 End If
	End Forall
	If Not foundRole Then
	 Messagebox _
	 ( "Sorry, " & roleName & " is not a role" )
	' if the role exists, check each acl entry to see if role
	' is enabled for entry
	' if so, add entry name to the People field
	' on the current document,
	' followed by a semicolon, the multi-value separator
	 'Evaluate({(@Name([Abbreviate];entry.Name))}),Evaluate("(@Text(@Name([Abbreviate];entry.Name)))")
	Else
	 Set entry = acl.GetFirstEntry
	 While Not ( entry Is Nothing )
	 If entry.IsRoleEnabled( roleName ) Then
	 If count=0 Then
	 stringmembers =stringmembers + entry.Name
	 Else
	 stringmembers=stringmembers+","+entry.Name
	 End If
	 count=count+1
	 End If
	 Set entry = acl.GetNextEntry( entry )
	 Wend
	End If
	' refresh current document so People field displays nicely
	' Msgbox stringmembers
	GetRolemembers = stringmembers
	End Function

试试其它关键字

同语言下

可能有用的

贡献的其它代码Label