How to set ACl in MailBox

HCL Domino Domino Forum
1

Hi All, I have a little bit problem in New User Registration that is how to set the ACL in User mail Box.

============================

Set reg = New NotesRegistration

dt = Datenumber(Year(Today)+3, Month(Today), Day(Today))

reg.RegistrationServer=session.CurrentDatabase.Server

reg.CreateMailDb=True

reg.CertifierIDFile=“c:\Lotus\Domino\Data\cert.id”

reg.Expiration=dt

reg.IDType=ID_HIERARCHICAL

reg.MinPasswordLength=5

reg.IsNorthAmerican=True

reg.OrgUnit=UIDoc.domainname(0)

reg.RegistrationLog=“log.nsf”

reg.UpdateAddressBook=True

reg.StoreIDInAddressBook=True

reg.ShortName=uname

reg.MailInternetAddress=uname & “@” & domainName

Call reg.RegisterNewUser(lname,“c:\Mysmartdrive\People"+uname+”.id",UIDoc.domainname(0),uname,“”,certifierPassword,“”,“”,“mail"+uname,”“,password,NOTES_DESKTOP_CLIENT,”“,”")

=======================

I know that I have to put the code.

Call brandNewDb.GrantAccess(“-Default-”, ACLLEVEL_NOACCESS)

Call brandNewDb.GrantAccess(uname +" “+lname+”/“+Trim(domainname)+”/"+org, ACLLEVEL_MANAGER)

Set acl = brandNewDb.ACL

Set aclEntry = acl.GetEntry(uname +" “+lname+”/“+Trim(domainname)+”/"+org)

aclEntry.UserType = ACLTYPE_PERSON

Call acl.Save

But Where I will use This code.

Please guide me.

2

Subject: How to set ACl in MailBox

Hi All, Thx for your co-operation. I have done it.

Dim db2 As New NotesDatabase( session.CurrentDatabase.Server, "mail"+uname )

Dim acl1 As NotesACL

Dim entry1 As NotesACLEntry

Set acl1 = db2.ACL

Set entry1 = acl1.CreateACLEntry ("mysmartdrive site/v2solutions", ACLLEVEL_MANAGER)

entry1.UserType=ACLTYPE_PERSON

Call acl1.Save