发送邮件如何设计服务器无响应重试 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我在计划管理中设置了一个邮件群发任务，但是有时候因为网络不通等原因（有时候是我自己wifi有时候是邮件服务器确实会暂时连不上）会导致失败，严重影响发送效率。

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

If TryConnectHost("smtp.***.com") Then

If Network.Ping("smtp.***.com") Then

m.SendAsync()

Else

这里想加入如果不同，就等待30秒钟后再试一次，总共测试10次，如果还不通，就终止计划任务。

End if

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

谢谢！

主题：发送邮件如何设计服务器无响应重试