- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 我做了一个群发邮件的按钮，但单击按钮，代码出错，请各位高手帮我看一下。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=22214)
-- 发布时间：2012/8/6 14:21:00
-- 我做了一个群发邮件的按钮，但单击按钮，代码出错，请各位高手帮我看一下。
邮件发送的"发送"按钮的代码是这样的：
For Each dr As DataRow In DataTables("邮件通知").DataRows
Dim m As New MailSender
m.Host = dr("SMTP地址")
m.Account = dr("帐号")
m.Password = dr("密码")
m.AddAttachments(dr("收件人"))
m.Title = dr("主题")
m.Content = dr("正文")
m.SendAsync()
Next
但是点击发送按钮，他却出现如下图所示的错误，请问，代码错在哪里？
此主题相关图片如下：102.jpg
-- 发布时间：2012/8/6 15:43:00
--
For Each dr As DataRow In DataTables("邮件通知").DataRows
If dr.IsNull("收件人") = False Then
Dim m As New MailSender
m.Host = dr("SMTP地址")
m.Account = dr("帐号")
m.Password = dr("密码")
m.AddReceiver(dr("收件人"))
m.Title = dr("主题")
m.Content = dr("正文")
m.SendAsync()
End If
Next
-- 发布时间：2012/8/8 10:40:00
--
我把以上代码加到 群发邮件 的 按钮 的click事件里，可确提示出现以下的错误，请大家帮我看一下；
此主题相关图片如下：102.jpg
-- 发布时间：2012/8/8 11:18:00
--
你要设置发件人，例如：
m.From = "xiaoliu@Sina.com.cn"
-- 发布时间：2012/8/8 11:25:00
--
我设置了发件人，代码如下：
For Each dr As DataRow In DataTables("邮件通知").DataRows
If dr.IsNull("收件人") = False Then
Dim m As New MailSender
m.Host = dr("SMTP地址")
m.Account = dr("帐号")
m.Password = dr("密码")
m.from=dr("发件人")
m.AddReceiver(dr("收件人"))
m.Title = dr("主题")
m.Content = dr("正文")
m.SendAsync()
End If
Next
还是出现这样的错误。
此主题相关图片如下：102.jpg
-- 发布时间：2012/8/8 13:36:00
--
我设置了发件人，代码如下：
For Each dr As DataRow In DataTables("邮件通知").DataRows
If dr.IsNull("收件人") = False Then
Dim m As New MailSender
m.Host = dr("SMTP地址")
m.Account = dr("帐号")
m.Password = dr("密码")
m.from=dr("发件人")
m.AddReceiver(dr("收件人"))
m.Title = dr("主题")
m.Content = dr("正文")
m.SendAsync()
End If
Next
还是出现这样的错误。
此主题相关图片如下：102.jpg
-- 发布时间：2012/8/8 13:44:00
--
你引用的表中的发件人是否是空的,没有数据?
-- 发布时间：2012/8/8 14:01:00
--
发件人 我填了数据啊
-- 发布时间：2012/8/8 16:05:00
--
可是点击了这个按钮 我到收件箱去查看 根本就没有收到邮件 也不出现任何的错误。能帮我远程看一下吗？
-- 发布时间：2012/8/8 16:23:00
--
邮件发不出去，不一定就是代码问题的，这种问题，远程没有意义。