[AP] 比對ACL上的設定

Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Dim entry As NotesACLEntry
Dim isRole As Variant, doc As NotesDocument
Set db = session.CurrentDatabase
Set acl = db.ACL
Set entry = acl.GetEntry( session.CommonUserName )
If entry Is Nothing Then
Set entry = acl.GetEntry( session.UserName )
End If

Set doc = Source.Document
If Not entry Is Nothing Then
If entry.IsRoleEnabled( "[QC OP.]" ) Or entry.IsRoleEnabled( "[ITM OP.]" ) Then 
Continue = True
Exit Sub
End If
End If