@shyrshum4yk

очу создать кнопку, вносящую в поле "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

0

@wowo

doc.Department = nr

0

@7hy

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

0

@myskProstomysk

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

0

@7hy

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

0

@K-Fyry

Скачайте себе .Domino Framework.
http://www.openntf.org/Projects/pmt.nsf/1a...33;OpenDocument

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

0

@shyrshum4yk

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

0