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
加好友 
发短信
Post By：2021/1/23 10:09:00 [显示全部帖子]
