- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 狐爸等高手帮我看一下群发邮件代码出错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=22129)
-- 发布时间：2012/8/3 11:39:00
-- 狐爸等高手帮我看一下群发邮件代码出错
Dim txt1 As String = e.Form.Controls("TextBox1").Text
Dim txt2 As String = e.Form.Controls("TextBox2").Text
For Each dr As DataRow In DataTables("供应商信息").DataRows
If dr.IsNull("邮箱") Then
Dim m As New MailSender
m.Host = "smtp.139.com"
m.Account = "422422"
m.Password = "18181818"
m.From = "422422@139.com"
m.To = dr("邮箱")
m.Title = txt2
m.Content = txt1
m.SendAsync()
End If
Next
此主题相关图片如下：出错提示.bmp
-- 发布时间：2012/8/3 11:45:00
--
Dim txt1 As String = e.Form.Controls("TextBox1").Text
Dim txt2 As String = e.Form.Controls("TextBox2").Text
For Each dr As DataRow In DataTables("供应商信息").DataRows
If dr.IsNull("邮箱") = False Then
Dim m As New MailSender
m.Host = "smtp.139.com"
m.Account = "422422"
m.Password = "18181818"
m.From = "422422@139.com"
m.To = dr("邮箱")
m.Title = txt2
m.Content = txt1
m.SendAsync()
End If
Next
-- 发布时间：2012/8/3 11:50:00
--
此主题相关图片如下：还出错.bmp
谢谢
-- 发布时间：2012/8/3 11:53:00
--
错误提示很清楚啊： 邮箱格式不对。
-- 发布时间：2012/8/3 11:54:00
--
刚才那个问题我也看出来了，狐爸还出错，请指教
-- 发布时间：2012/8/3 14:30:00
--
代码没有问题了，有问题的是你的数据。
-- 发布时间：2012/8/3 14:40:00
--
格式出错时指字段的设置有问题？
-- 发布时间：2012/8/3 14:40:00
--
格式出错是指字段的设置有问题？