邮箱发送失败 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

每个用户都要new一个MailSender，要把邮件所有代码都放到循环里

For index As Integer = 0 To values.Length - 1
Dim dr2 As DataRow = DataTables("登录用户").SQLFind("用户姓名='" & values(index) & "'")
If dr2 IsNot Nothing Then

Dim m1 As New MailSender
        m1.Host = "smtp.139.com"
        m1.EnableSsl = True '必须将EnableSsl属性设置为True
        m1.Account = "scy"

……

……
                                 messagebox.Show("5")
                            m1.To = dr2("手机号") & "@139.com"
                            messagebox.Show(dr2("手机号"))
                            m1.SendAsync()
                        End If
                    Next

主题：邮箱发送失败