主题：求助狐狸爸爸，关注群发邮件的问题

有两个表，一个为《人员管理》，一个为《邮件通知》。《人员管理》包括工号、姓名、部门、邮箱等列。《邮件通知》包括smtp地址、账号、密码、收件人(《人员管理》表的邮箱)、主题、内容等列。请问，如何实现根据人员管理表的邮箱实现邮件群发。

狐狸爸爸，帮我看一下啊

 

狐狸爸爸，帮我看一下啊

“发送”按钮的代码是这样的：

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

m.AddAttachments(dr("收件人"))
 
应该改为：
 
m.AddReceiver(dr("收件人"))