以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  发邮件代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=21554)

--  作者:jinzhengbe
--  发布时间:2012/7/17 5:53:00
--  发邮件代码

Dim m As New MailSender
Dim ln As String = vbcrlf & vbcrlf \'定义两个换行
m.Host = "smtp.hotmail.com"
m.Account = "jinzhene"
m.Password = "1234in"
m.From = "jinzhengbe@hotmail.com"
For Each dr As DataRow In DataTables("订单处理").Select("ischeck"="5")
    m.To = dr("邮箱")
    m.Title = "订单错误"
    m.Content = dr("用户名") & dr("尊称") & ":" & ln & "因为你的订单中商品名为" & dr("商品名") & "的商品" & dr("productRemarks")
    m.Content = m.Content & "有问题" & dr("金额") & "请及时回复此信息!" & ln & "韩国唐人街" & vbcrlf & Date.today
    m.SendAsync()
Next

 

请问一下上面这段代码,哪里有问题?怎么邮件发不出去啊?

[此贴子已经被作者于2012-7-17 6:04:37编辑过]

--  作者:blackzhu
--  发布时间:2012/7/17 7:47:00
--  
群发?     Select("ischeck"="5")   条件错了!   
--  作者:狐狸爸爸
--  发布时间:2012/7/17 8:15:00
--  

For Each dr As DataRow In DataTables("订单处理").Select("ischeck=5")

 

要用表达式,至少看看:

http://www.foxtable.com/help/topics/0102.htm

http://www.foxtable.com/help/topics/1647.htm

http://www.foxtable.com/help/topics/1284.htm