Doc Agent to Uidoc Agent

HCL Domino Domino Forum
1

Dear All,

I have this system agent which runs automatically.

I want to convert so can work with uidoc.

Can you open my eyes please?

Forall r In acl.Roles			

	

	If r = tmpRole Then

		Set ACLentry = acl.GetFirstEntry

		

		'Retreives the user list for a specific role

		While Not ( ACLentry Is Nothing )

			

			If ACLentry.IsRoleEnabled( r ) Then

				If ACLentry.IsPerson Then

					

					Set  tmpName = session.CreateName(ACLentry.Name)	

					

					tmpNameList(i) =  tmpName.Common

					

					i = i + 1

				End If				

			End If

			Set ACLentry = acl.GetNextEntry( ACLentry )

		Wend		

		

	End If	

End Forall

Regards,

Nick