主题：求助群发邮件问题

发送选定订单到对应产品供应商的邮箱：

Dim r As Row = Tables("订单").Current
Dim dr As DataRow = DataTables("供应商信息").Find("公司名称 = '" & r("公司名称") & "'")
If dr IsNot Nothing Then
    Dim m As New MailSender
    m.Host = "smtp.21cn.net"
    m.Account = "xiaoliu"
    m.Password = "xiaoliu1234567"
    m.From = "xiaoliu@Sina.com.cn"
    m.To = dr("邮箱")
    m.Title = "有件标题"
    m.C
    m.SendAsync()
End If