ф-ция получает роль для базы и возращает список пользователей с этой р

[NeoSimvolist]

Sub GetNotesAddress(UserRole As String, UserItem As NotesItem)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Dim entry As NotesACLEntry
Dim AllRoles As Variant	 
Dim MyName As NotesName

Set db = session.CurrentDatabase	 
Set acl = db.ACL
Set entry = acl.GetFirstEntry 
While Not entry Is Nothing
AllRoles = entry.Roles 		
Forall CurrentRole In AllRoles
If CurrentRole = UserRole Then 
Set MyName = New NotesName(entry.Name)
UserItem.AppendToTextList(MyName.Canonical)
End If
End Forall
Set entry = acl.GetNextEntry( entry )
Wend	 
End Sub

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

 

[hosm]

Вариант номер раз тут (недокументирован)
Вариант номер 2 - писать раскрытие нужных групп самому на основе просмотра представления ($NamesFieldLookup) в адресной книге сервера. Учитывать, что группы бывают вложенные, т.е. содержать группу (нужна рекурсия)
Если нужно только отсылать сообщения, то если группам рассылать можно, то будет работать и так.
И доступ по группам считается нормально.

 

[azat20]

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

 

[Klido]

Вариант номер раз тут (недокументирован)

он бы всем хорош, но слишком сильно раскрывает в частности, если поле MailAddress заполнено (а это поле форвардинга) - лукапит именно его, а никак не лотуснейм В связи с чем приходится только явно раскрывать....

 

[TIA]

Как переделать эту функцию чтобы она доставала еще и пользователей из групп? или это и так будет работать

Отправлять письма можно и на группу. Так что если я правильно понял задачу, то "и так будет работать"

 

[Medevic]

Стоит учесть, что на группы типа Access control list only слать не получится.