- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于MailSender (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79502)
-- 发布时间：2016/1/3 17:47:00
-- 关于MailSender
通过openqq的功能我想实现自动发送邮件，我在客户端的ReceivedMessage事件中写了如下代码：
Dim m As New MailSender
Dim ln As String = vbcrlf & vbcrlf \'定义两个换行
m.Host = "smtp.21cn.net"
m.Account = "xiaoliu"
m.Password = "xiaoliu1234567"
m.From = "xiaoliu@Sina.com.cn"
For Each dr As DataRow In DataTables("借款").Select("到期日期<= #" & Date.Today.AddDays(10) & "#")
m.To = dr("邮件地址")
m.Title = "催款通知"
m.Content = dr("姓名") & dr("尊称") & ":" & ln & "您的贷款将于" & dr("到期日期") & "到期, "
m.Content = m.Content & "金额为" & dr("金额") & "元, 请准时还款!" & ln & "某某公司" & vbcrlf & Date.today
m.SendAsync()
Next
但是有错误，
此主题相关图片如下：qq图片20160103174608.png
-- 发布时间：2016/1/3 21:25:00
--
你一楼的代码单独写不可能报错。
如果报错，你就换一个名字，比如 For Each dddr As DataRow In In DataTables("借款").Select("到期日期<= #" & Date.Today.AddDays(10) & "#")
-- 发布时间：2016/1/4 14:37:00
--
老师，在我用下面代码发送邮件的时候出现了错误，
Dim m As New MailSender
Dim ln As String = vbcrlf & vbcrlf \'定义两个换行
m.Host = "smtp.21cn.net"
m.Account = "xiaoliu"
m.Password = "xiaoliu1234567"
m.From = "xiaoliu@Sina.com.cn"
For Each drr As DataRow In DataTables("表a").DataRows
m.To = drr("邮件地址")
m.Title = "催款通知"
m.Content = dr("姓名") & dr("尊称") & ":" & ln & "您的贷款将于" & dr("到期日期") & "到期, "
m.SendAsync()
Next
此主题相关图片如下：qq图片20160104143330.png
这是什么原因造成的？
-- 发布时间：2016/1/4 14:39:00
--
For Each drr As DataRow In DataTables("表a").select("邮件地址 is not null")
m.To = drr("邮件地址")
m.Title = "催款通知"
m.Content = dr("姓名") & dr("尊称") & ":" & ln & "您的贷款将于" & dr("到期日期") & "到期, "
m.SendAsync()
Next