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