以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助狐狸爸爸,关注群发邮件的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=22199)

--  作者:akzzwj
--  发布时间:2012/8/6 9:21:00
--  求助狐狸爸爸,关注群发邮件的问题
有两个表,一个为《人员管理》,一个为《邮件通知》。《人员管理》包括工号、姓名、部门、邮箱等列。《邮件通知》包括smtp地址、账号、密码、收件人(《人员管理》表的邮箱)、主题、内容等列。请问,如何实现根据人员管理表的邮箱实现邮件群发。
--  作者:akzzwj
--  发布时间:2012/8/6 10:26:00
--  

狐狸爸爸,帮我看一下啊

 


--  作者:akzzwj
--  发布时间:2012/8/6 13:22:00
--  

狐狸爸爸,帮我看一下啊


--  作者:akzzwj
--  发布时间:2012/8/6 14:04: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 14:45:00
--  
m.AddAttachments(dr("收件人"))
 
应该改为:
 
m.AddReceiver(dr("收件人"))