Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim picklist As Variant
picklist = workspace.PickListStrings( _
PICKLIST_CUSTOM, _
False, _
"lotusmain/ruta", _
"names.nsf", _
"($People)", _
"Пользователи в Лотусе", _
"Выбор пользователя.", _
1, _
"" )
If (Isempty(picklist)) Then
Goto end1
End If
Set uidoc = workspace.CurrentDocument
Call uidoc.FieldSetText("CanonicName", picklist(0))
end1:
End Sub