现计划生日当天给客户发送一个邮件，参照帮助：Dim m As New MailSender
Dim ln As String = vbcrlf & vbcrlf '定义两个换行
m.Host = "smtp.21cn.net"
m.Account = "xiaoliu"
m.Password = "xiaoliu1234567"
m.From = "xiaoliu@Sina.com.cn"
For Each dr As DataRow In DataTables("客户").Select("出生日期<= #" & Date.Today.AddDays(10) & "#")
m.To = dr("邮件地址")
m.Title = "生日礼物领取通知"
m.Content = dr("姓名") & dr("尊称") & ":" & ln & "今天是你的生日"
m.Content = m.Content & "请到某某公司客服中心领取生日礼物。" & ln & "某某公司" & vbcrlf & Date.today
m.SendAsync()
Next
请问大家 这一句该怎么修改呢？
修改 For Each dr As DataRow In DataTables("生日").Select("出生日期= ？？？)
...
Next
加好友 
发短信
Post By：2017/4/4 8:59:00 [显示全部帖子]
