Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]批量发工资条出错


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

主题：[求助]批量发工资条出错
帅哥哟，离线，有人找我吗？
evolymft
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		[求助]批量发工资条出错  发帖心情 Post By：2017/6/10 13:38: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 & "您的贷款将于" & dr("到期日期") & "到期, "
m.Content = m.Content & "金额为" & dr("金额") & "元, 请准时还款!" & ln & "某某公司" & vbcrlf & Date.today
m.SendAsync()
Next


利用帮助中的例子发工资条时，每个邮件都是发的最后一条，没有循环发送，请指点！！！！
 回到顶部
帅哥哟，离线，有人找我吗？
evolymft
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2017/6/10 13:58:00 [只看该作者]

 

现在三个邮箱中都收到的是最一个人   王五   的工资条。

[此贴子已经被作者于2017/6/10 15:11:56编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
evolymft
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2017/6/10 14:17:00 [只看该作者]

已上传实例，请专家关注指点！！！！！！

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110608 积分：562942 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/6/10 14:41:00 [只看该作者]


Dim ln As String = vbcrlf & vbcrlf '定义两个换行

For Each dr As DataRow In DataTables("借款").Select("到期日期<= #" & Date.Today.AddDays(10) & "#")
    Dim m As New MailSender
    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 & "您的贷款将于" & dr("到期日期") & "到期, "
    m.Content = m.Content & "金额为" & dr("金额") & "元, 请准时还款!" & ln & "某某公司" & vbcrlf & Date.today
    m.SendAsync()
Next
 回到顶部
帅哥哟，离线，有人找我吗？
evolymft
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2017/6/10 14:50:00 [只看该作者]

老师：还是全都发的最后一个人的工资条，请改实例，谢谢！！！！

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110608 积分：562942 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/6/10 15:11:00 [只看该作者]

我测试没有问题

 回到顶部
帅哥哟，离线，有人找我吗？
evolymft
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2017/6/10 15:11:00 [只看该作者]

老师，谢谢！刚才买没有改完，对的。

 回到顶部
帅哥哟，离线，有人找我吗？
evolymft
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2017/6/14 14:22:00 [只看该作者]

For Each dr As DataRow In DataTables("工资库").Select("[发薪年月]= '201705' and [电子邮箱] isnot null")
请问专家红色字体的代码如何修改，谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/6/14 14:36:00 [只看该作者]

For Each dr As DataRow In DataTables("工资库").Select("[发薪年月]= '201705' and [电子邮箱] is not null")
 回到顶部
帅哥哟，离线，有人找我吗？
evolymft
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2017/6/14 14:40:00 [只看该作者]

谢谢老师！！！

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