Все имена пользователей в определенной роли в Lotus Notes

Question

Мне нужно получить все имя пользователя определенной роли, чтобы я мог отправлять почту всем пользователям, имеющим доступ к этой роли. Как я мог бы выполнить эту задачу?

Я видел эту ссылку,

How do I get all users who have a specified role?

Неужели нет другого пути, чтобы получить весь действительное имя пользователя, которое может быть использовано в SendTo? Без этой проблемы? Хотя я не пробовал NotesACL. Я новичок в разработке Lotus Notes.

Answer 1

Если вы немного влияете на то, как выглядят записи ACL, вы должны иметь возможность достичь хорошего решения. Следующий код собирает все записи в ACL с определенной ролью и принимает только те записи, которые имеют тип Person или Person group.

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 sMembers As String 
    Set db = session.CurrentDatabase 
    Set acl = db.ACL 
    sMembers = "" 
    Set entry = acl.GetFirstEntry 
    While Not (entry Is Nothing) 
     If entry.IsRoleEnabled(roleName) And entry.IsPerson Then 
      sMembers = sMembers + entry.Name & "," 
     End If 
     Set entry = acl.GetNextEntry(entry) 
    Wend 
    GetRoleMembers = sMembers 
End Function 

Функция возвращает список разделенных запятыми всех лиц и групп с заданной ролью. Вы можете протестировать эту функцию с

Print GetRoleMembers("[Test]") 

Убедитесь, что пользователи, которых вы хотите, чтобы отправлять сообщения электронной почты присваиваются типа Person или Person group. Вы можете установить тип пользователя в ACL