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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]邮件发送有点疑问

共有2102人关注过本帖树形打印复制链接主题：[求助]邮件发送有点疑问

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/11 11:34:00 [显示全部帖子]

1、代码写到afterOpenProject事件，或者计划管理那里；

2、发送加上条件，"到期日期<= #" & Date.Today.AddDays(10) & "# and 已还款 = False"

3、只执行一次，是一天执行一次，还是怎样？

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/11 12:04:00 [显示全部帖子]

以下是引用81538475在2018/5/11 11:42:00的发言：
恩。一天只执行一次。

表格加一个列【发送邮件日期】，你发送邮件以后，给这个列赋值 dr("发送邮件日期") = Date.Today

筛选条件改成 "到期日期<= #" & Date.Today.AddDays(10) & "# and 已还款 = False and (发送邮件日期 < #" & date.today & "# or 发送邮件日期 is null)"

[此贴子已经被作者于2018/5/11 12:05:10编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/11 12:54:00 [显示全部帖子]

这个代码不能少

m.To = dr("邮件地址")

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/11 15:07:00 [显示全部帖子]

接收邮箱是同一个，那你希望发多少封邮件？邮件的内容是什么？

发一封？

Dim m As New MailSender
'Dim ln As String = vbcrlf & vbcrlf '定义两个换行
m.Host = "smtp.ym.163.com"
m.Account = "sp_mis@starpainters.net"
m.Password = "******"
m.From = "sp_mis@starpainters.net"
m.To=("cxw@starpainters.net")

Dim s As String = ""
For Each dr As DataRow In DataTables("人员信息表").Select("到期时间 <= #" & Date.Today.AddDays(5) & "# And (状态 = '试用' Or 状态 = '实习')")
s &= dr("姓名") & ","
Next
m.Title = "【武汉渲奇MIS】-(试用/实习)到期通知!"
m.C & s
m.SendAsync()

下一主题 >> << 上一主题

主题：[求助]邮件发送有点疑问