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

@myoSymvotyst · Регистрация: 25.11.2008

Author24 — интернет-сервис помощи студентам

Код

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 Nothyng
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 · 01.12.2009, 09:30

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

@ozot20 · 01.12.2009, 09:39

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

@Ktydo · 01.12.2009, 09:44

Сообщение от OKEN

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

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

01.12.2009, 12:16

Сообщение от NeoSimvolist

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

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

@Mydyvys · 01.12.2009, 12:40

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

@myoSymvotyst 0 / 0 / 0 Регистрация: 25.11.2008 Сообщений: 85
		1
	ф-ция получает роль для базы и возращает список пользователей с этой р 01.12.2009, 08:12. Показов 12091. Ответов 5 Метки нет (Все метки) Код 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 Nothyng 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 Как переделать эту функцию чтобы она доставала еще и пользователей из групп? или это и так будет работать Этот список затем используется для рассылки сообщений. 0

@hosm 0 / 0 / 0 Регистрация: 15.05.2009 Сообщений: 1,454
	01.12.2009, 09:30	2
	Вариант номер раз (недокументирован) Вариант номер 2 - писать раскрытие нужных групп самому на основе просмотра представления ($NamesFieldLookup) в адресной книге сервера. Учитывать, что группы бывают вложенные, т.е. содержать группу (нужна рекурсия) Если нужно только отсылать сообщения, то если группам рассылать можно, то будет работать и так. И доступ по группам считается нормально. 0

@ozot20 0 / 0 / 0 Регистрация: 18.07.2008 Сообщений: 242
	01.12.2009, 09:39	3
	отдельно пользуков врядли через скрипт возьмешь, только через собак можно. а для рассылки сообщений группы вполне подойдут 0

@Ktydo 0 / 0 / 0 Регистрация: 28.06.2009 Сообщений: 1,567
	01.12.2009, 09:44	4
	Сообщение от OKEN Вариант номер раз тут (недокументирован) он бы всем хорош, но слишком сильно раскрывает в частности, если поле MailAddress заполнено (а это поле форвардинга) - лукапит именно его, а никак не лотуснейм ;) В связи с чем приходится только явно раскрывать.... 0

Tyo
	01.12.2009, 12:16	5
	Сообщение от NeoSimvolist Как переделать эту функцию чтобы она доставала еще и пользователей из групп? или это и так будет работать Отправлять письма можно и на группу. Так что если я правильно понял задачу, то "и так будет работать"

@Mydyvys 0 / 0 / 0 Регистрация: 04.12.2004 Сообщений: 3,329
	01.12.2009, 12:40	6
	Стоит учесть, что на группы типа Access control list only слать не получится. 0