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

这个代码放到哪里比较好呢。

如果希望这个代码只执行一次，改如何处理。

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

　

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

 

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

 

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

恩。一天只执行一次。

 

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

 

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

这个代码不能少

 

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

接收的邮箱是同一个也要这样写吗，所以放到了上面。完整的代码是这样的

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

 

发一封？

 

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()

For Each dr As DataRow In DataTables("人员信息表").Sel e ct("到期时间 <= #" & Date.Today.AddDays(5) & "# And (状态 = '试用' Or 状态 = '实习')")   

测试了半天还是没有找到原因，上传一个样例，麻烦帮忙看看是什么情况。