主题：我做了一个群发邮件的按钮，但单击按钮，代码出错，请各位高手帮我看一下。

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

但是点击发送按钮，他却出现如下图所示的错误，请问，代码错在哪里？

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

我把以上代码加到 群发邮件 的 按钮 的click事件里，可确提示出现以下的错误，请大家帮我看一下；

你要设置发件人，例如：

m.From = "xiaoliu@Sina.com.cn"

我设置了发件人，代码如下：

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

还是出现这样的错误。

我设置了发件人，代码如下：

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

还是出现这样的错误。

发件人 我填了数据啊

可是点击了这个按钮 我到收件箱去查看 根本就没有收到邮件 也不出现任何的错误。能帮我远程看一下吗？