[求助]批量发工资条出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2980人关注过本帖树形打印复制链接主题：[求助]批量发工资条出错

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110618 积分：562992 威望：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()

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110618 积分：562992 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/6/10 15:11:00 [显示全部帖子]

我测试没有问题

主题：[求助]批量发工资条出错