Foxtable(狐表) → 用户栏目 → 专家坐堂 → 发送邮件内容循环


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

主题：发送邮件内容循环
帅哥哟，离线，有人找我吗？
xunxun0903
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：267 积分：3289 威望：0 精华：0 注册：2017/12/20 15:51:00 		发送邮件内容循环  发帖心情 Post By：2023/12/29 9:45:00 [只看该作者]

Dim m As New MailSender
Dim ln As String = vbcrlf & vbcrlf '定义两个换行
m.Host = "smtp.exmail.qq.com"
m.EnableSsl = True '
m.Account = "test@test.com"
m.Password = "test"
m.From = "test@test.com"
Dim drs As List(Of DataRow)
drs = DataTables("记录").Select("[类型]= '纠正'")
For Each dr As DataRow In drs
    m.To = "user1@test.com"
    m.Title = "行动项到期"
    m.Content = dr("责任人") & "： 您的行动项 [" & dr("措施") & " ]," & ln & "计划在" & dr("计划完成时间") & "前完成"
    output.Show(dr("责任人") & "： 您的行动项 [" & dr("措施") & " ]," & ln & "计划在" & dr("计划完成时间") & "前完成")
    m.SendAsync()
Next

符合条件有4条，我会收到4封一模一样的邮件，content内容都是一样的。但是output.show显示出来的是正确的，都能正确显示dr的每个字段内容。
这是什么情况？
 回到顶部
帅哥哟，离线，有人找我吗？
chen37280600
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1265 积分：7838 威望：0 精华：4 注册：2017/12/31 14:53:00 		  发帖心情 Post By：2023/12/29 9:47:00 [只看该作者]

 m.SendAsync()放在了循环了，就发送了4次咯，应该移出去循环外

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


加好友 发短信
等级：童狐 帖子：267 积分：3289 威望：0 精华：0 注册：2017/12/20 15:51:00 		  发帖心情 Post By：2023/12/29 9:52:00 [只看该作者]

杰哥V5

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107023 积分：544346 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/12/29 9:53:00 [只看该作者]

Dim ln As String = vbcrlf & vbcrlf '定义两个换行
Dim drs As List(Of DataRow)
drs = DataTables("记录").Select("[类型]= '纠正'")
For Each dr As DataRow In drs
    Dim m As New MailSender
m.Host = "smtp.exmail.qq.com"
m.EnableSsl = True '
m.Account = "test@test.com"
m.Password = "test"
m.From = "test@test.com"
    m.To = "user1@test.com"
    m.Title = "行动项到期"
    m.Content = dr("责任人") & "： 您的行动项 [" & dr("措施") & " ]," & ln & "计划在" & dr("计划完成时间") & "前完成"
    output.Show(dr("责任人") & "： 您的行动项 [" & dr("措施") & " ]," & ln & "计划在" & dr("计划完成时间") & "前完成")
    m.SendAsync()
Next
 回到顶部
帅哥哟，离线，有人找我吗？
xunxun0903
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：267 积分：3289 威望：0 精华：0 注册：2017/12/20 15:51:00 		  发帖心情 Post By：2023/12/29 10:00:00 [只看该作者]

帮助文件  MailSender 示例五 是不是错了？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107023 积分：544346 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/12/29 10:02:00 [只看该作者]

是

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