Foxtable(狐表)用户栏目专家坐堂 → [求助]发送多份邮件会卡死


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

主题:[求助]发送多份邮件会卡死

帅哥哟,离线,有人找我吗?
明天的灵
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:203 积分:2281 威望:0 精华:0 注册:2017/2/7 7:41:00
[求助]发送多份邮件会卡死  发帖心情 Post By: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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:46218 积分:234532 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/26 13:49:00 [只看该作者]

代码没有问题

直接发送有什么问题,为什么要暂停2秒?

 回到顶部
帅哥哟,离线,有人找我吗?
明天的灵
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:203 积分:2281 威望:0 精华:0 注册:2017/2/7 7:41:00
  发帖心情 Post By:2020/3/26 15:51:00 [只看该作者]

直接发送会导致邮件服务器拒绝发送

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


加好友 发短信
等级:超级版主 帖子:46218 积分:234532 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/26 16:20:00 [只看该作者]

 如果使用m.Send呢

 回到顶部
帅哥哟,离线,有人找我吗?
明天的灵
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:203 积分:2281 威望:0 精华:0 注册:2017/2/7 7:41:00
  发帖心情 Post By:2020/3/26 19:26:00 [只看该作者]

这个没试




 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:46218 积分:234532 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/27 8:54:00 [只看该作者]

那就试呗。既然邮件服务器做了限制,等2秒还不如发完一封再发下一封

 回到顶部