主题：狐爸等高手帮我看一下群发邮件代码出错

Dim txt1 As String = e.Form.Controls("TextBox1").Text
Dim txt2 As String = e.Form.Controls("TextBox2").Text
For Each dr As DataRow In DataTables("供应商信息").DataRows
If dr.IsNull("邮箱")  Then  
 Dim m As New MailSender
    m.Host = "smtp.139.com"
    m.Account = "422422"
    m.Password = "18181818"
    m.From = "422422@139.com"
    m.To = dr("邮箱") 
    m.Title = txt2
    m.Content = txt1
    m.SendAsync()
End If
Next