.

HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1 212-599-2048

Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development

Facebook Twitter YouTube
Chat now       
.
ProductsDownloadsNewsAbout usContact


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

LOTUSSCRIPT/COM/OLE CLASSES

Examples: IsPublicWriter property
This script checks to see if the particular entry has write access to this database.

Sub Queryopen(Source As Notesuidocument, _
Mode As Integer, Isnewdoc As Variant, _
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 Bugs/East/ACME")
 If entry.IsPublicWriter Then
   Messagebox entry.Name & " is a public writer."
 Else
   Messagebox entry.Name & " is not a public writer."
 End If
End Sub

See Also