Получение списка групп для пользователя

[shershun4ik]

очу создать кнопку, вносящую в поле "Department" список групп в которых состоит пользователь.

[codebox]Sub Click(Source As Button)

Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.currentDocument
Dim doc As NotesDocument
Set doc = uidoc.Document
Set notesRegistration = New NotesRegistration
Dim nr As Variant
nr = notesRegistration.GroupList
Set doc.Department = nr

End Sub[/codebox]

В дебагере он показывает, что в свойствах NotesRegistration есть поле GroupList, но оно пустое (точнее несуществует). При попытке присвоить его значение в nr, nr остается пустым (несуществующим). А при присвоении doc.Department значения nr выдает Type mismatch.

Где я неправ?

Писал на основе примера из книги по программированию в Lotus R5

 

[wowa]

doc.Department = nr

 

[7hi]

Если для текущего, то @UserNamesList

 

[NickProstoNick]

shershun4ik , стесняюсь спросить.... а в контексте какого пользователя? и на сколько я понял notesRegistration.GroupList не дает знаний о текущем пользователе. Этот метод используется для внесения пользователя в определенную(определенные) группы перед регистрацией

 

[7hi]

NotesRegistration служит для регистрации пользователя

 

[K-Fire]

Скачайте себе .Domino Framework.

Ссылка скрыта от гостей

Там в 99% случаев можно найти нужную функцию для себя. Либо переиспользовать 1 к 1, либо модифицировать под себя. Ну или на крайний случай подчерпнуть идею как что сделать.

 

[shershun4ik]

Спасибо всем, кто откликнулся проблема решена при помощи @UserNamesList