Нашел здесь на форуме вот такю функцию
Function SetPersonFullName(sRegServer As String, sLastName As String, sFirstName As String, sMiddleInit As String, uReg As NotesRegistration) As Variant
On Error Goto Error_
SetPersonFullName = False

Dim uPerson As NotesDocument
Set uPerson = GetPersonDoc(sRegServer, sLastName, sFirstName, sMiddleInit)
If (uPerson Is Nothing) Then
Print sError & "Пользователь """ & sLastName & " " & sFirstName & " " & sMiddleInit & """ не найден в адресной книге на сервере """ & sRegServer & """"
Exit Function
End If

With uPerson
.FullName = Canonicalize(.FullName(0))
.ShortName = uReg.ShortName
SetPersonFullName = .Save(True, True)
End With

Exit_:
Exit Function

Error_:
Print sError & "SetPersonFullName: (#" & Err() & ", #" & Erl() & ") " & Error()
Call LogAdd(sError & "SetPersonFullName: (#" & Err() & ", #" & Erl() & ") " & Error(), "1")
Resume Exit_
End Function

Чтоза функция? GetPersonDoc. Или как ее создать самому?

 

"Пользователь """ & sLastName & " " & sFirstName & " " & sMiddleInit & """ не найден в адресной книге на сервере ""

только НАЙТИ док юзера в АК.. .по ФИО...
как создать? хм, взять и создать... или подождать пока хозян ща довыложит недостающее

 

NeoSimvolist
самописная функция, смотри в дизейнере что и куда....

 

код выкладывали давно. функция получает документ Person из АК сервера по ФИО.
Напиши сам или ищи сообщения автора (наш модератор указал имя автора) за тот период на sysadmins.ru