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

2002-01-10 10:56:36 144 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

python发送多人邮件没有展示收件人问题的解决方法这篇文章主要为大家详细介绍了python发送多人邮件没有展示收件人问题的解决方法，具有一定的参考价值，感兴趣的小伙伴们可以参考一下背景：工作过程中需要对现有的机器、服务做监控，当服务出现问题后，邮件通知对应的人问题：使用python 2.7自带的email库来进行邮件的发送，但是发送后没有展示收件人列表内容问题代码示例： # -*- coding:utf-8 -*- import smt... 阅读详情

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])

...全文