Foxtable(狐表)用户栏目专家坐堂 → 发送邮件如何设计服务器无响应重试


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

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

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


加好友 发短信
等级:婴狐 帖子:44 积分:594 威望:0 精华:0 注册:2016/10/1 11:15:00
发送邮件如何设计服务器无响应重试  发帖心情 Post By: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里面有等待时间的代码,请老师帮忙!

谢谢!


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/22 13:15:00 [只看该作者]

 参考代码

 

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

msgbox("10秒后执行")


 回到顶部