Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Dim db As NotesDatabase
Set db=session.currentdatabase
Dim acl As NotesACL
Set acl = db.ACL
Dim entry As NotesACLEntry
Dim RoleEntry As NotesACLEntry
Set entry = acl.GetfirstEntry
Dim r As String
r = entry.name
While Not (entry Is Nothing)
Set RoleEntry = acl.GetEntry( r )
Forall role In RoleEntry.Roles
If role = "[局长]" Then Call uidoc.FieldAppendText("局长角色用户" , r & ", ")
End Forall
Set entry = acl.GetNextEntry(entry)
r = ""
If Not (entry Is Nothing) Then r = entry.name
Wend
End Sub
将向局长角色域中取得的人员发送邮件
ServerName:= @Name([O];@UserName);
ReplaceStr:= "O=" + ServerName+";";
ReplaceTo:= "\""+":";
SendtoList:= @ReplaceSubstring(局长角色用户 ; "CN=" : ReplaceStr; "\"" : ReplaceTo);
FormatList:= @Trim(@Left(SendtoList;(@Length(SendtoList)-1)));
@Command([FileSave]);
@MailSend(FormatList;"";"";"局长信箱";"请点击下面连接查看具体内容";"";[IncludeDoclink];[PriorityNormal]);
@Command([FileCloseWindow])
