以文本方式查看主题
- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助狐狸爸爸,关注群发邮件的问题 (http://foxtable.com/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("收件人"))
|