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

Тема в разделе "Lotus - Программирование", создана пользователем NeoSimvolist, 2 дек 2009.

Статус темы:
Закрыта.
  1. NeoSimvolist

    NeoSimvolist Гость

    Код (Text):
    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
    Как переделать эту функцию чтобы она доставала еще и пользователей из групп? или это и так будет работать
    Этот список затем используется для рассылки сообщений.
     
  2. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    Вариант номер раз тут (недокументирован)
    Вариант номер 2 - писать раскрытие нужных групп самому на основе просмотра представления ($NamesFieldLookup) в адресной книге сервера. Учитывать, что группы бывают вложенные, т.е. содержать группу (нужна рекурсия)
    Если нужно только отсылать сообщения, то если группам рассылать можно, то будет работать и так.
    И доступ по группам считается нормально.
     
  3. azat20

    azat20 Well-Known Member

    Регистрация:
    22 июл 2008
    Сообщения:
    244
    Симпатии:
    0
    отдельно пользуков врядли через скрипт возьмешь, только через собак можно. а для рассылки сообщений группы вполне подойдут
     
  4. Klido

    Klido Гость

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

    TIA :-)
    Lotus team

    Регистрация:
    15 май 2009
    Сообщения:
    790
    Симпатии:
    0
    Отправлять письма можно и на группу. Так что если я правильно понял задачу, то "и так будет работать"
     
  6. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Стоит учесть, что на группы типа Access control list only слать не получится.
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей