Hi all,
I am scripting an LS agent to register user. It registers a user and creates his mail file.
When I call that agent, it worked (not always, every 2nd time I get an “you are not authorized” error).
But I have these messages in my log:
10.05.2010 17:29:29 Unable to update calendar entry ‘DefaultAppAssoc’ from list ‘$FL_2’ for ‘Test Reguser01/CH/HPHTST’. Error returned:
: Note item not found
10.05.2010 17:29:29 Unable to update calendar entry ‘DefaultAppDom’ from list ‘$FL_2’ for ‘Test Reguser01/CH/HPHTST’. Error returned:
: Note item not found
I run that agent from a notes basic client, out of a custom database. The agent has security level 3, ( = allow restricted …).
Thanks for any help in advance
Uwe
here’s the code, if it helps you to help me 
===============================================
With profdoc
reg.UseCertificateAuthority = CBool(.regIsNorthAmerican(0))
If reg.Usecertificateauthority Then
reg.CertifierName = .regCertifierName(0)
Else
reg.CertifierIDFile = .regCertifierIDFile(0)
CertIDPW = .regCertifierIDPW(0)
End If
reg.RegistrationServer = .AdminServerName(0)
reg.MailACLManager = .regCertifierName(0)
reg.CreateMailDB = CBool(.regCreateMailDB(0))
reg.Expiration = .regExpiration(0)
reg.IDType = ID_HIERARCHICAL
reg.IsNorthAmerican = CBool(.regStoreIDInAddressBook(0))
reg.MinPasswordLength = .regMinPasswordLength(0)
reg.UpdateAddressBook = CBool(.regUpdateAddressBook(0))
reg.StoreIDInAddressBook = CBool(.regStoreIDInAddressBook(0))
'reg.Mailinternetaddress = ""
reg.Mailcreateftindex = False
startfolder = session.GetEnvironmentString("Directory",True) & .regUserIDFolder(0)
End With
Set dc = db.Unprocesseddocuments
Set doc = dc.Getfirstdocument()
While Not doc Is Nothing
With doc
userIDfolder = startfolder & .UserID(0) &".id"
reg.Mailtemplatename = .newMailTemplate(0) & ".ntf"
reg.Mailinternetaddress = .InternetAddress(0)
Call reg.RegisterNewUser(_
.LastName(0), _
userIDfolder, _
.newMailServer(0),_
.FirstName(0), _
"", _
CertIDPW, _
.LocationRoom(0), _
"", _
.newMailFile(0), _
"", _
.NewIDPW(0))
End With
Set doc = dc.Getnextdocument(doc)
Wend
===============================================