...
Dim uReg As NotesRegistration
Set uReg = New NotesRegistration
With uReg
Dim nLen As Integer
nLen = Len(uDocument.idfile(0))
.CertifierIDFile = sLocalCertID
.CreateMailDb = True
.Expiration = Cdat("01.01.2007")
.IDType = ID_HIERARCHICAL
.IsNorthAmerican = False
.MailACLManager = uSession.UserName
.MailOwnerAccess = REG_MAIL_OWNER_ACL_MANAGER
.MailTemplateName = sMailTemplate
.MinPasswordLength = 3
.OrgUnit = uDocument.OrgUnit(0)
.RegistrationServer = Canonicalize(uDocument.regserver(0))
.ShortName = Left(uDocument.idfile(0), nLen - 3)
.StoreIDInAddressbook = True
.UpdateAddressbook = False
Dim sComment As String
Dim sLocation As String
Dim sMailFile As String
sComment = "Automatically Created"
sLocation = "Office"
sMailFile = uDocument.maildbpath(0)
If (Right(sMailFile, 4) = ".nsf") Then
sMailFile = Left(sMailFile, Len(sMailFile)-4)
End If
sMailFile = sMailFile & ".nsf"
If Not(.RegisterNewUser(_
F.LastName, _ ' Last Name
sLocalUserIDDirectory & "\" & _
uDocument.idfile(0), _ ' ID-file to be created
.RegistrationServer,_ ' Mail Server
F.FirstName, _ ' First Name
F.MiddleInit, _ ' Middle Initial
sCertPassword, _ ' Certifier Password
sLocation, _ ' Location Field
sComment, _ ' Comment Field
sMailFile, _ ' Mail File
"", _ ' Forwarding Domain
uDocument.userpw(0), _ ' User Password
NOTES_FULL_CLIENT, _ ' User Type
, _ ' Alternate Name
"ru"_ ' Alternate Language
)) Then
uLog sError & "RegisterUser: uReg.RegisterNewUser: FAILED"
Exit Function
Else
uLog sNote & "RegisterUser: uReg.RegisterNewUser: OK"
End If
If Not(.AddUserToAddressbook(_
sLocalUserIDDirectory & "\" & _
uDocument.idfile(0), _ ' ID-file
F.FullName, _ ' Full Name
F.LastName, _ ' Last Name
uDocument.userpw(0), _ ' User Password
F.FirstName, _ ' First Name
F.MiddleInit, _ ' Middle Initial
.RegistrationServer, _ ' Mail Server
sMailFile, _ ' Mail File
"", _ ' Forwarding Address
sLocation, _ ' Location Field
sComment _ ' Comment Field
)) Then
uLog sError & "RegisterUser: uReg.AddUserToAddressbook: FAILED"
Exit Function
Else
uLog sNote & "RegisterUser: uReg.AddUserToAddressbook: OK"
End If
End With
If Not(SetPersonFullName(uReg.RegistrationServer, _
F.LastName, F.FirstName, F.MiddleInit, uReg)) Then
uLog sError & "RegisterUser: SetPersonFullName: FAILED"
Exit Function
Else
uLog sNote & "RegisterUser: SetPersonFullName: OK"
End If
...
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
uLog 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_:
uLog sError & "SetPersonFullName: (#" & Err() & ", #" & Erl() & ") " & Error()
Resume Exit_
End Function]]>Ссылка]]> на обсуждение
Автор - ]]>Wakko]]>