HCL Domino - Examples: UserType property - Need a Domino Consultant? Call NotesMail +1 212-599-2048

HCLSoftware Business Partner Domino Consulting Services CRUCIAL Notes Tools +1 212-599-2048	Domino Consulting Services CRUCIAL Notes Tools Domino administration Notes development	Chat now
.

Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

LOTUSSCRIPT/COM/OLE CLASSES

Examples: UserType property
1. This code, when added to the Onload event on a form, sets the ACL user type for Mary Ann Admin to Person when a new document is created.

Sub Onload(Source As Notesuidocument) Dim session As new NotesSession Dim db As NotesDatabase Dim acl As NotesACL Dim entry As NotesACLEntry Set db = session.CurrentDatabase Set acl = db.ACL Set entry = acl.GetEntry("Mary Ann Admin/East/ACME") If Not (entry Is Nothing) Then entry.UserType = ACLTYPE_PERSON Call acl.Save() End If End Sub

2. This code, when added to the same form in the Onunload event, displays a message box that states, "Mary Ann Admin has a user type of Person" when the form is closed.

Sub Onunload(Source As Notesuidocument, Continue As Variant) Dim session As new NotesSession Dim db As NotesDatabase Dim acl As NotesACL Dim entry As NotesACLEntry Set db = session.CurrentDatabase Set acl = db.ACL Set entry = acl.GetEntry("Mary Ann Admin/East/ACME") If (entry.UserType = ACLTYPE_PERSON) Then Messagebox "Mary Ann Admin has a user type of Person" _

,,"User type" End If End Sub

See Also

UserType property

Feedback on Help or Product Usability?

Help on Help

All Help Contents

Feedback on Help or Usability?

Help on Help

All Help Contents