帮看下程序是有问题吗？为什么有时收得到邮件有时收不到的呢？？
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("邮件信息发送成功")
加好友 
发短信
Post By：2021/1/23 10:03:00 [只看该作者]
