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