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

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  群发邮件时有些人没收到  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=160169)

--  作者：mxl810823
--  发布时间：2021/1/23 10:03:00
--  群发邮件时有些人没收到

帮看下程序是有问题吗？为什么有时收得到邮件有时收不到的呢？？
Dim frs As List(of DataRow) = DataTables("用户权限").sqlsele ct("姓名 is not null")
For Each fr As DataRow In frs
If e.Form.controls("r参会人员").text.contains("" & fr("姓名") & "") Then
If fr("QQ邮箱") <> "" And fr("QQ邮箱") <> Nothing Then
Dim ym As New MailSender
ym.Host = "smtp.139.com"
ym.Account = "13768076996"
ym.Password = "mxl810823@@"
ym.From = "LCM_SERVER@139.com"
ym.To = "" & fr("QQ邮箱") & ""
ym.Title = "" & yzt & ""
ym.C"
ym.SendAsync()
End If
If fr("公司邮箱") <> "" And fr("公司邮箱") <> Nothing Then
Dim ym As New MailSender
ym.Host = "smtp.139.com"
ym.Account = "13768076996"
ym.Password = "mxl810823@@"
ym.From = "LCM_SERVER@139.com"
ym.To = "" & fr("公司邮箱") & ""
ym.Title = "" & yzt & ""
ym.C"
ym.SendAsync()
End If
End If
Next
MessageBox.Show("邮件信息发送成功")

--  作者：有点蓝
--  发布时间：2021/1/23 10:09:00
--

Dim frs As List(of DataRow) = DataTables("用户权限").SQLSelect("姓名 in (\'" & e.Form.controls("r参会人员").text.replace(",","\',\'") & "\')")
For Each fr As DataRow In frs
If fr.Isnull("QQ邮箱") =False Then
Dim ym As New MailSender
ym.Host = "smtp.139.com"
ym.Account = "13768076996"
ym.Password = "mxl810823@@"
ym.From = "LCM_SERVER@139.com"
ym.To = fr("QQ邮箱")
ym.Title = yzt
ym.C"
ym.SendAsync()
End If
If fr.Isnull("公司邮箱") =False Then