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

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

你要设置发件人，例如：

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