以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]发送多份邮件会卡死  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=147874)
--  作者：明天的灵
--  发布时间：2020/3/26 12:57:00
--  [求助]发送多份邮件会卡死

参照http://www.foxtable.com/webhelp/topics/1404.htm 例子，做了一个根据邮件地址发送邮件的程序，
在没有加入标为红色语句前，使用正常。但是加入第发送一封暂停2秒的语句后，大概发送5封邮正常，发送
10份邮件，非常卡。
这句红色部分代码不知道如何改写（暂停2秒）

For Each dr As DataRow In DataTables("借款").Sel  ect ( "到期日期 <= #" & Date.Today.AddDays(10) & "#")
    Dim m As New MailSender
    Threading.Thread.Sleep(2000)    \'暂停2秒
    Dim ln As String = vbcrlf & vbcrlf \'定义两个换行
    m.Host = "smtp.21cn.net"
    m.Account = "xiaoliu"
    m.Password = "xiaoliu1234567"
    m.From = "xiaoliu@Sina.com.cn"
    m.To = dr("邮件地址")
    m.Title = "催款通知"
    m.Content = dr("姓名") & dr("尊称") & ":" & ln & "您的贷款将于" & dr("到期日期") & "到期, " 
    m.Content = m.Content & "金额为" & dr("金额") & "元, 请准时还款!" & ln & "某某公司" & vbcrlf & Date.today
    m.SendAsync()
Next

 
[此贴子已经被作者于2020/3/26 13:07:26编辑过]
--  作者：有点蓝
--  发布时间：2020/3/26 13:49:00
--  
代码没有问题

直接发送有什么问题，为什么要暂停2秒？
--  作者：明天的灵
--  发布时间：2020/3/26 15:51:00
--  
直接发送会导致邮件服务器拒绝发送
--  作者：有点蓝
--  发布时间：2020/3/26 16:20:00
--  
 如果使用m.Send呢
--  作者：明天的灵
--  发布时间：2020/3/26 19:26:00
--  
这个没试
--  作者：有点蓝
--  发布时间：2020/3/27 8:54:00
--  
那就试呗。既然邮件服务器做了限制，等2秒还不如发完一封再发下一封