以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]生日邮件代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98647)
--  作者：laipiwen
--  发布时间：2017/4/4 8:59:00
--  [求助]生日邮件代码
现计划生日当天给客户发送一个邮件，参照帮助：
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
--  作者：有点蓝
--  发布时间：2017/4/4 10:26:00
--  
1、增加辅助列，存储月日

2.参考

For Each dr As DataRow In DataTables("客户").SQLSelect("Day(出生日期)= " & Date.Today.Day & " and Month(出生日期) =" & Date.Today.Month)
--  作者：laipiwen
--  发布时间：2017/4/4 14:34:00
--  
以下是引用有点蓝在2017/4/4 10:26:00的发言：
1、增加辅助列，存储月日

2.参考

For Each dr As DataRow In DataTables("客户").SQLSelect("Day(出生日期)= " & Date.Today.Day & " and Month(出生日期) =" & Date.Today.Month)


谢谢了，这行代码可用
测试发现 如果有两个客户同时 过生日，两个客户收到的邮件是一样的  ，邮件中的姓名  都是一样的。 
m.Content = dr("姓名") & dr("尊称") & ":" & ln & "今天是你的生日"
请问这个是什么问题呢？
--  作者：有点蓝
--  发布时间：2017/4/4 15:06:00
--  

For Each dr As DataRow In DataTables("客户").SQLSelect("Day(出生日期)= " & Date.Today.Day & " and Month(出生日期) =" & Date.Today.Month)
    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"
    m.To = dr("邮件地址")
    m.Title = "生日礼物领取通知"
    m.Content = dr("姓名") & dr("尊称") & ":" & ln & "今天是你的生日"
    m.Content = m.Content & "请到某某公司客服中心领取生日礼物." & ln & "某某公司" & vbcrlf & Date.today
    m.SendAsync()
Next
--  作者：laipiwen
--  发布时间：2017/4/4 16:22:00
--  
谢谢了