以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问如何设置自动排除邮件地址为空的行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68887)
--  作者：time
--  发布时间：2015/5/26 23:16:00
--  请问如何设置自动排除邮件地址为空的行

 根据数据表内容动态合成邮件发送，例如下面的代码从借款表中筛选出10天内到期的客户，并发送催款邮件：

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

 

 

 

请教代码怎么写，对于邮件地址为空的行不发送邮件，谢谢！
--  作者：大红袍
--  发布时间：2015/5/26 23:24:00
--  
For Each dr As DataRow In DataTables("借款").Select("到期日期<= #" & Date.Today.AddDays(10) &  "# and 邮件地址 is not null")
--  作者：time
--  发布时间：2015/6/7 14:59:00
--  

依照以上补充后的代码，发现有个新问题：收件人收的到的邮件内容显示为其他收件人的邮箱号码和其他姓名，现在请问要求邮箱地址行对应的姓名接收自己相对应的邮件内容。

 

换一句表达意思：假如有100多行需要分别通过电子邮件发送通知，而且发给邮箱地址对应的姓名（不要张冠李戴）各自保密，避免张三收到李四的邮件，请问上列代码需要怎样更正？
--  作者：time
--  发布时间：2015/6/7 15:01:00
--  
再请教此命令结束显示提示对话框进行提示邮件已经发送成功的代码怎样写，谢谢！
--  作者：大红袍
--  发布时间：2015/6/7 15:02:00
--  

 只要你的邮件地址没写错，代码就不会有问题

 

m.To = dr("邮件地址")
--  作者：time
--  发布时间：2015/6/7 15:05:00
--  

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

请问这里的邮件地址是表里面的列名字是“邮件地址”吗？
--  作者：大红袍
--  发布时间：2015/6/7 15:06:00
--  
 是，每一行的邮件地址如果没写错，就不会发错。
--  作者：time
--  发布时间：2015/6/7 15:07:00
--  
谢谢！
--  作者：time
--  发布时间：2015/6/27 12:15:00
--  

http://www.foxtable.com/help/index.html?n=2686.htm

[此贴子已经被作者于2015/6/27 18:47:02编辑过]
--  作者：time
--  发布时间：2015/6/27 12:17:00
--  

 

[此贴子已经被作者于2015/6/27 12:20:59编辑过]