Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]生日邮件代码


  共有1864人关注过本帖树形打印复制链接

主题：[求助]生日邮件代码
帅哥，在线噢！
laipiwen
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：382 积分：2882 威望：0 精华：0 注册：2015/4/29 11:50:00 		[求助]生日邮件代码  发帖心情 Post By：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
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110601 积分：562907 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：382 积分：2882 威望：0 精华：0 注册：2015/4/29 11:50:00 		  发帖心情 Post By：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 & "今天是你的生日"
请问这个是什么问题呢？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110601 积分：562907 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：382 积分：2882 威望：0 精华：0 注册：2015/4/29 11:50:00 		  发帖心情 Post By：2017/4/4 16:22:00 [只看该作者]

谢谢了

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07422 秒, 4 次数据查询