lotusscript - 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]")

确保您要发送电子邮件的用户已分配为人员类型或人员组。您可以在ACL中设置用户类型