| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]批量发工资条出错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101946) |
| -- 作者：evolymft -- 发布时间：2017/6/10 13:38:00 -- [求助]批量发工资条出错 Dim m As New
MailSender 利用帮助中的例子发工资条时，每个邮件都是发的最后一条，没有循环发送，请指点！！！！ |
| -- 作者：evolymft -- 发布时间：2017/6/10 13:58:00 --
现在三个邮箱中都收到的是最一个人 王五 的工资条。 [此贴子已经被作者于2017/6/10 15:11:56编辑过]
|
| -- 作者：evolymft -- 发布时间：2017/6/10 14:17:00 -- 已上传实例，请专家关注指点！！！！！！ |
| -- 作者：有点蓝 -- 发布时间：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 -- 发布时间：2017/6/10 14:50:00 -- 老师：还是全都发的最后一个人的工资条，请改实例，谢谢！！！！ |
| -- 作者：有点蓝 -- 发布时间：2017/6/10 15:11:00 -- 我测试没有问题 |
| -- 作者：evolymft -- 发布时间：2017/6/10 15:11:00 -- 老师，谢谢！刚才买没有改完，对的。 |
| -- 作者：evolymft -- 发布时间：2017/6/14 14:22:00 -- For Each dr As DataRow In DataTables("工资库").Select("[发薪年月]= \'201705\' and [电子邮箱] isnot null") 请问专家红色字体的代码如何修改，谢谢！ |
| -- 作者：有点色 -- 发布时间：2017/6/14 14:36:00 -- For Each dr As DataRow In DataTables("工资库").Select("[发薪年月]= \'201705\' and [电子邮箱] is not null")
|
| -- 作者：evolymft -- 发布时间：2017/6/14 14:40:00 -- 谢谢老师！！！ |