Чтоза функция? Getpersondoc

  • Автор темы NeoSimvolist
  • Дата начала
Статус
Закрыто для дальнейших ответов.
N

NeoSimvolist

Гость
#1
Нашел здесь на форуме вот такю функцию
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. Или как ее создать самому?
 
K

Klido

Гость
#2
"Пользователь """ & sLastName & " " & sFirstName & " " & sMiddleInit & """ не найден в адресной книге на сервере ""
только НАЙТИ док юзера в АК.. .по ФИО...
как создать? хм, взять и создать... или подождать пока хозян ща довыложит недостающее ;)
 

Cleric-Lviv

Well-Known Member
Lotus team
03.01.2008
600
0
#3
NeoSimvolist
самописная функция, смотри в дизейнере что и куда....
 

hosm

* so what *
18.05.2009
2 442
9
#4
код выкладывали давно. функция получает документ Person из АК сервера по ФИО.
Напиши сам или ищи сообщения автора (наш модератор указал имя автора) за тот период на sysadmins.ru
 
Статус
Закрыто для дальнейших ответов.