主题：MailSender发信速度过快，怎么解决

代码如下，用计划管理来控制的，到时间会自动发，因为速度太快，经常导致很多发送失败。

 

 

For Each dr As DataRow In DataTables("综管").Select("月份营运报表_日期 <= #" & Date.Today.AddDays(-2) & "# ")
    If dr("确认已收货邮件")=False  Then
       
    Dim m As New MailSender

    Dim ln As String = vbcrlf & vbcrlf '定义两个换行

    m.Host = "smtp.qq.com"

    m.Account = "1336181618@qq.com"

    m.Password = "123456"

    m.From = "1336181618@qq.com"

    m.AddReceiver(dr("备份邮箱"))

    m.Title ="中兴(ZTE)备件管理服务---- "  & dr("序号2") & " "  & dr("月份营运报表_日期")& " " & dr("服务执行单据记录表_申请号") & " 【补签回单,非常重要,请务必回复】"

    m.Content = m.Content & ln & "此邮件目的: 请您补签回单或回复邮件允许库房代签回单. "

    m.AddAttachments("E:\管理系统\管理系统V5.0\Reports\回单确认函.xls")

    m.SendAsync()
    End If
Next

 

 整个代码就上面那样了，怎样才能控制发信速度啊？

 

此主题相关图片如下：22121.png


此主题相关图片如下：12131.png

system.threading.thread.sleep(5000)

 

 

5000是秒吗？我想设置2分钟发一封，计划管理是30分钟启动一次。

我现在就是在计划里设置的，但一到时间就会把需要发邮件的行全部都发出去，所以导致发信太快，怎么设置一次只发一行，两分钟这样发一次。

 

附现在设置时间：

此主题相关图片如下：20130112.png

For Each dr As DataRow In DataTables("综管").Select("月份营运报表_日期 <= #" & Date.Today.AddDays(-2) & "# ")
    If dr("客户沟通_是否收货")=False  Then
       
        Dim Book As New XLS.Book(ProjectPath & "Attachments\确认是否已收到备件--备件明细.xls")
        Dim fl As String = ProjectPath & "Reports\确认是否已收到备件--备件明细.xls"
        Book.Build()
        Book.Save(fl)
        Dim Proc As New Process
        Proc.File = fl
       
       
        Dim m As New MailSender
        Dim ln As String = vbcrlf & vbcrlf '定义两个换行
        m.Host = "smtp.qq.com"
        m.Account = "1336181618@qq.com"
        m.Password = "123456"
        m.From = "1336181618@qq.com"
        m.AddReceiver(dr("备份邮箱"))
        m.AddReceiver(dr("交接邮箱"))
        m.AddReceiver(dr("申请邮箱"))
        m.Title ="中兴(ZTE)备件管理服务---- "  & dr("序号2") & " "  & dr("月份营运报表_日期")& " " & dr("服务执行单据记录表_申请号") & " 【询问是否已收到货】 重要邮件,请勿更改主题直接回复此邮件,感谢您对我们工作的支持."
        m.Content = m.Content & ln & "此邮件目的: 确认是否收到派给您的备件"
        m.Content = m.Content & ln & "      您好,您于 " & dr("月份营运报表_日期")   & " 申请的,申请号为 " & dr ("服务执行单据记录表_申请号") & " 的备件已经于 " & dr("派送时间")& " 通过 " &  dr("派送方式") & "  为您派出,现与您确认是否收到派送备件,请回复邮件或电话告知我们,感谢您对我们工作的支持!"
        m.Content = m.Content & ln & "      查询/联系: " & ("派送方式") & " " & dr("派送记录") & " / 李政桥 18275886166 "
        m.Content = m.Content & ln & "      基本信息: " & vbcrlf & "      申请号: " & dr("服务执行单据记录表_申请号") & vbcrlf & "      申请人: " & dr("服务执行单据记录表_客户申请人及电话") & vbcrlf & "      交接人:" & dr("服务执行单据记录表_客户交接人及电话") & vbcrlf & "      派送地址: " & dr("月份营运报表_派送及取件详细地址") & vbcrlf & "      本次共派送:" & dr("派送件数") & " 件."
        m.Content = m.Content & ln & "      更多信息请下载附件查看,祝工作愉快."
        m.Content = m.Content & ln & "      " & dr("确认已收货邮件内容")  & vbcrlf &  "      指令单下载: " & dr("指令单")
        m.Content = m.Content & ln & "      若您已收到对应备件,请及时更换并将旧件及时返回库房."  & vbcrlf & "      " & dr("合作快递1_公司") & " : " & dr("合作快递1_联系方式") & vbcrlf & "      " & dr("合作快递2_公司") & " : "  & dr("合作快递2_联系方式")
        m.Content = m.Content & ln & "      如对我们及我们的供应商(如快递公司)的服务有任何不满的地方,请致电告知我们,感谢您对我们工作的支持."      & vbcrlf &  "      服务投诉: 0771-5346427"
        m.Content = m.Content & ln & "                                                                      祝工作愉快!"
        m.Content = m.Content & ln & "                                                                ZTE备件管理广西区配送中心"
        m.AddAttachments("E:\管理系统\管理系统V5.0\Reports\确认是否已收到备件--备件明细.xls")
        m.SendAsync()
        dr("客户沟通_是否收货")=True
    End If
Next

 

以前没有带附件的时候是正常的，现在带了附件就不正常了，提示如下，是什么原因？

此主题相关图片如下：未命名.jpg

还是会出错，是不是发信速度过快导致附件冲突？

好了，你帮下下，应该要重新设置下数据连接，删了几个表，会有错误提示，用的是QQ邮箱，你填你的进去更换下。

麻烦一起帮我解决下发信速度的问题可以不， system.threading.thread.sleep(5000)，确实会造成假死问题，

邮件代码在计划管理里面。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理系统.rar

对啊，我也知道是这个问题，但你说的方法我不怎么懂，可以说得更明白点吗，谢谢  呵呵

额  这两段代码是放什么地方的

设置成5分钟发一封邮件，时间在哪里改？

If idx > -1 Then

 

这个是什么意思