Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!
共6 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题：发送邮件内容循环
1楼
xunxun0903 发表于：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的每个字段内容。
这是什么情况？
2楼
chen37280600 发表于：2023/12/29 9:47:00
 m.SendAsync()放在了循环了，就发送了4次咯，应该移出去循环外
3楼
xunxun0903 发表于：2023/12/29 9:52:00
杰哥V5
4楼
有点蓝 发表于：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
5楼
xunxun0903 发表于：2023/12/29 10:00:00

帮助文件  MailSender 示例五 是不是错了？

6楼
有点蓝 发表于：2023/12/29 10:02:00
是
共6 条记录, 每页显示 10 条, 页签: [1]
Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 2 queries.