为什么用下面的代码发送邮件发送一个是没有问题，改送二个邮件地址列表就显示不成功了呢？

[傻乐tao]

Sub Postopen(Source As Notesuidocument)
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])

[傻乐tao]

求命

[michael_law]

检查一下"局长角色用户"这个域是不是多值域

[Soft21]

大家好啊，我嘛，不错！