怎样用程序控制角色的添加和删除！！谢谢，急

[crazyrain]

怎样用程序控制角色的添加和删除！！谢谢，急
最后给出原代码！！！

[crazyrain]

如何通过程序控制角色中人员的增加或者删除呢？

[iamchenke]

利用程序增加角色：

Dim db As New NotesDatabase ("", Inputbox("Name of database"))
Dim dbACL As NotesACL
Dim dbACLEntry As NotesACLEntry
Set dbACL = db.ACL
ename = Inputbox("Name of ACL entry?")
Set dbACLEntry = dbACL.GetEntry(ename)
Call dbACL.AddRole("Role ")
Call dbACLEntry.EnableRole("Role")
dbRoles = dbACLEntry.Roles
If Not(Isempty(dbRoles)) Then
Forall dbRole In dbRoles
Messagebox "Role " & dbRole
End Forall
Else
Messagebox "No roles for this ACL entry"
End If
Call dbACL.save

[iamchenke]

Set entry = acl.getentry(user)
If Not (entry Is Nothing) Then
Call entry.enablerole(role)
Else

Dim newentry As New notesaclentry(acl , user , acllevel_editor)
Call newentry.enablerole(role)
Call acl.save
End If

[quhaifeng]

mark