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