主题：[求助]邮件发送有点疑问

For Each dn As DataRow In DataTables("表a").Select("到期时间 <= #" & Date.Today.AddDays(5) & "# ")
    output.Show(dn("第一列"))
    Dim m As New MailSender
    m.Host = "smtp.qq.com"
    m.Account = "455189993@qq.com"
    m.Password = "helen6849338."
    m.From = "455189993@qq.com"
    m.To="765427475@qq.com"
    m.Title = "【武汉渲奇MIS】-" & dn("第一列") & "(试用/实习)到期通知!"
    m.Content = "【武汉渲奇MIS】-" & dn("第一列") & "(试用/实习)到期通知!"
    m.Send()
Next