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


  共有2103人关注过本帖树形打印复制链接

主题：[求助]邮件发送有点疑问
帅哥哟，离线，有人找我吗？
81538475
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1302 积分：10502 威望：0 精华：1 注册：2018/1/20 12:40:00 		[求助]邮件发送有点疑问  发帖心情 Post By：2018/5/11 11:21:00 [显示全部帖子]

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

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


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

　

 回到顶部
帅哥哟，离线，有人找我吗？
81538475
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1302 积分：10502 威望：0 精华：1 注册：2018/1/20 12:40:00 		  发帖心情 Post By：2018/5/11 11:42:00 [显示全部帖子]

恩。一天只执行一次。

 回到顶部
帅哥哟，离线，有人找我吗？
81538475
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1302 积分：10502 威望：0 精华：1 注册：2018/1/20 12:40:00 		  发帖心情 Post By：2018/5/11 12:52:00 [显示全部帖子]


麻烦看看这个代码有没有啥问题。为何结果只发了同一个人的。output.show的结果正常

For Each dr As DataRow In DataTables("人员信息表").S el ect("到期时间 <= #" & Date.Today.AddDays(5) & "# And (状态 = '试用' Or 状态 = '实习')")
    output.Show(dr("姓名"))
    m.Title = "【武汉渲奇MIS】-" & dr("姓名") & "(试用/实习)到期通知!"
    m.Co nt ent = "HI，all”
    m.SendAsync()
Next


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20180511125056.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2018/5/11 12:54:43编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
81538475
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1302 积分：10502 威望：0 精华：1 注册：2018/1/20 12:40:00 		  发帖心情 Post By：2018/5/11 12:58: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")

For Each dr As DataRow In DataTables("人员信息表").Se le ct("到期时间 <= #" & Date.Today.AddDays(5) & "# And (状态 = '试用' Or 状态 = '实习')")
    output.Show(dr("姓名"))
    m.Title = "【武汉渲奇MIS】-" & dr("姓名") & "(试用/实习)到期通知!"
    m.Co nte nt = "HI,all:" 
    m.SendAsync()

Next

[此贴子已经被作者于2018/5/11 14:06:14编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
81538475
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1302 积分：10502 威望：0 精华：1 注册：2018/1/20 12:40:00 		  发帖心情 Post By：2018/5/11 15:14:00 [显示全部帖子]

用下面的代码找出来的有6个人，每个人的情况都需要单独发一封邮件到指定的邮箱 cxw@starpainters.net。 那就是6封不同的邮件。
但是目前发送的只有最后一个人信息的邮件，而且重复发了6便

For Each dr As DataRow In DataTables("人员信息表").Sel e ct("到期时间 <= #" & Date.Today.AddDays(5) & "# And (状态 = '试用' Or 状态 = '实习')")   
 回到顶部
帅哥哟，离线，有人找我吗？
81538475
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1302 积分：10502 威望：0 精华：1 注册：2018/1/20 12:40:00 		  发帖心情 Post By：2018/5/11 17:49:00 [显示全部帖子]

测试了半天还是没有找到原因，上传一个样例，麻烦帮忙看看是什么情况。
麻烦修改下发送邮箱帮忙测试一下。
希望达到的效果是，第一列里面每个名字都会以一个单独的邮件发送。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目5.table
 回到顶部
帅哥哟，离线，有人找我吗？
81538475
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1302 积分：10502 威望：0 精华：1 注册：2018/1/20 12:40:00 		  发帖心情 Post By：2018/5/11 18:31:00 [显示全部帖子]

多谢老大。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08203 秒, 6 次数据查询