主题：求助：如何实现根据多行选择，进行发送多封邮件！

1、

Dim tbl As Table = Tables("人员关联表")
For Each rw As Row In tbl.GetCheckedRows
    Dim ab As Row = Tables("系统信息").Current
    Dim drs = DataTables("告知内容").Select("姓名 = '" & 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("姓名") & "】" & rw("称谓") & "您好!" & vbcrlf
        content &=  vbcrlf
        content &= dr("涉案人名") & "涉嫌" & dr("涉案罪名") & "一案,经我院" & dr("流程时间") & "审查,现在已经进入【" & dr("流程名称") & "】" & vbcrlf
        content &=  vbcrlf
        content &= dr("注意事项")
        message.Body = content
        Dim attachment As new  System.Net.Mail.Attachment("d:\test.xls",  System.Net.Mime.MediaTypeNames.Application.Octet)
        message.Attachments.Add(attachment)
        AddHandler client.SendCompleted, AddressOf SendCompletedCallback
        Dim userState As String = "test message1"
        client.SendAsync(message, userState)
        dr("是否告知")="是"
    Next
Next

2、你输入的发送的邮箱，必须正确。你【王五】的邮箱是错误的邮箱。

用这种方式测试，看是否报错。

如果报错，说明QQ邮箱有限制，参考

https://jingyan.baidu.com/article/915fc414f7a3e151394b20bb.html