以文本方式查看主题

-  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=95506)
--  作者：guning008
--  发布时间：2017/1/22 11:43:00
--  发送邮件如何设计服务器无响应重试
我在计划管理中设置了一个邮件群发任务，但是有时候因为网络不通等原因（有时候是我自己wifi有时候是邮件服务器确实会暂时连不上）会导致失败，严重影响发送效率。

于是我想在邮件发送的最后一步加上一段代码，先测试邮件服务器是否可以解析，而且是否可以ping通，如下：

If TryConnectHost("smtp.***.com") Then
    If Network.Ping("smtp.***.com") Then
        m.SendAsync()
Else
    这里想加入如果不同，就等待30秒钟后再试一次，总共测试10次，如果还不通，就终止计划任务。
End if

但是我没有找到Foxtable里面有等待时间的代码，请老师帮忙！

谢谢！
--  作者：有点色
--  发布时间：2017/1/22 13:15:00
--  

 参考代码

 

Dim sdt As Date = Date.Now
While Date.Now < sdt.AddSeconds(10)
    Application.DoEvents
End While

msgbox("10秒后执行")