如何通过Lotus Scripts 得到ACL 中所有角色的列表－－－－急

[傻乐tao]

[97ce_twinkle]

notesACL.roles可获得数组。

[yw_w]

Dim acl As NotesACL

Set acl = db.ACL

Forall r In acl.Roles
Call uidoc.FieldAppendText( "role", r & ", " )
End Forall

[傻乐tao]

楼上那样我试了，好像不行，我的意思是这样
比如说我（MyUser）现在建立了三个角色（ A B C ）
那么现在我怎么样在程序中能够知道我（MyUser） 就有三个角色是（A B C）

[dene]

This script displays all the roles that are enabled for Bob Kidder. For example, the script might display "[Project Leader]" and "[Writer]."
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( "Bob Kidder" )
Forall r In entry.Roles
Messagebox( r )
End Forall