求助:多账户邮件如何批量发送对应的查找记录行数据的内容邮件呢?
干警信息中有两个不同的账姓名及对应的两个不同的电子邮件
告知内容中有三条记录,然后应该是要发送三份电子邮件
结果现在是邮件发送了三次
但是三次的内容是把三条记录组合在一份邮件里 发了三次
此主题相关图片如下:11.png
想实现一个账户一行记录 一个电子邮件!
代码如下:(怎么修正呢)
Dim dr1 As DataRow
dr1 = DataTables("告知内容").Find("是否告知 = '否' " )
If dr1 IsNot Nothing Then
Dim tbl As Table = Tables("干警信息")
For Each rw As Row In tbl.GetCheckedRows
If rw("电子邮件") <> Nothing Then
Dim ab As Row = Tables("系统信息").Current
Dim drs = DataTables("告知内容").S elect("姓名 = '" & rw("姓名") & "'And 是否告知 = '否' " )
For Each dr As DataRow In drs
Dim client As New System.Net.Mail.SmtpClient(ab("单位QQ邮件网关"), ab("单位QQ邮件端口")) '或者465
client.EnableSsl = True 'SSL
client.Credentials=New System.Net.NetworkCredential(ab("单位QQ邮件"), ab("单位QQ邮件发送授权码"))
client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
Dim message As New System.Net.Mail.MailMessage()
message.From=new System.Net.Mail.MailAddress(ab("单位QQ邮件"), ab("单位QQ邮件别名"))
message.To.Add(new System.Net.Mail.MailAddress(rw("电子邮件"), rw("姓名")))
message.To.Add(rw("电子邮件"))
message.Subject = "瓮安检察" & dr("流程名称") & "通知"
message.BodyEncoding = System.Text.Encoding.UTF8
Dim content As String
content &= "【"& rw("姓名") & "】" & "您好!" & vbcrlf
content &= vbcrlf
content &= dr("嫌疑人姓名") & "涉嫌" & dr("涉嫌案由") & "一案,经我院" & dr("流程时间") & "审查,现在已经进入【" & dr("流程名称") & "】" & vbcrlf
content &= vbcrlf
content &= dr("注意事项")
content &= vbcrlf
content &= "参考法律法规" & dr("法律法规")
message.Body = content
AddHandler client.SendCompleted, AddressOf SendCompletedCallback
Dim userState As String = "test message1"
client.SendAsync(message, userState)
dr("是否告知")="是"
Next
Else
End If
Next
Else
End If
[此贴子已经被作者于2019/2/15 22:56:08编辑过]