1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

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

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

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

    NeoSimvolist Гость

    Репутация:
    0
    Код:
    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 *

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

    azat20 Well-Known Member

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

    Klido Гость

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

    TIA :-)
    Lotus team

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

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

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

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