Vb6 消息-到多个连接_Vb6_Cdo.message

Vb6 消息-到多个连接

vb6

Vb6 消息-到多个连接,vb6,cdo.message,Vb6,Cdo.message,我正在使用CDO.Message编写新闻稿应用程序。但是得到一个错误，我们有很多连接。似乎它们有10个同时连接的限制那么，有没有一种方法可以在一个连接上发送多条消息，或者更快地断开连接？有一个cdo/configuration/smtpconnectiontimeout参数，但我认为更多的是关于发送方将尝试多长时间（如果发送失败，几分钟后将再次成功，这可能意味着连接已断开）（我们使用CDO的部分原因是我们从Web服务器中提取HTML消息体）编辑： Public Sub ipSendMa

我正在使用CDO.Message编写新闻稿应用程序。但是得到一个错误，我们有很多连接。似乎它们有10个同时连接的限制

那么，有没有一种方法可以在一个连接上发送多条消息，或者更快地断开连接？有一个cdo/configuration/smtpconnectiontimeout参数，但我认为更多的是关于发送方将尝试多长时间

（如果发送失败，几分钟后将再次成功，这可能意味着连接已断开）

（我们使用CDO的部分原因是我们从Web服务器中提取HTML消息体）

编辑：

Public Sub ipSendMail(ByVal toEmail As String, ByVal fromEmail As String, ByVal subject As String, ByVal url As String)
    Dim iMsg As Object
    Set iMsg = CreateObject("CDO.Message")
    iMsg.From = fromEmail
    iMsg.To = toEmail
    iMsg.Subject = subject
    iMsg.CreateMHTMLBody(url)
    iMsg.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    iMsg.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "relay.wwwwwwwwww.net"
    iMsg.Configuration.Fields.Item_
        ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    iMsg.Configuration.Fields.Item _ 
        ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 0
    iMsg.Configuration.Fields.Update()
    iMsg.Send()
    Set iMsg = Nothing
End Sub

通常，无论发送多少条消息，您都只需要一个连接

也许你没有释放你应该释放的东西

编辑：只是想一想，您要发送到的SMTP服务器，可能出于测试原因，它不会碰巧是XP机箱上的主机

编辑：确定，SMTP服务器正常

服务器提供URL结果的平台是什么？

通常，无论发送多少消息，您只需要一个连接

也许你没有释放你应该释放的东西

编辑：只是想一想，您要发送到的SMTP服务器，可能出于测试原因，它不会碰巧是XP机箱上的主机

编辑：确定，SMTP服务器正常

服务器提供URL结果的平台是什么？

尝试使用SMTP而不是CDO System.Web.Mail.SmtpMail
您可以实现由后台线程处理的队列。后台线程一次只发送一条消息
您可以将电子邮件存储在数据库表中，该表由计划任务或存储过程处理。它们可以再次一次发送一封邮件，如果出现问题，还可以重试

尝试使用SMTP而不是CDO System.Web.Mail.SmtpMail
您可以实现由后台线程处理的队列。后台线程一次只发送一条消息
您可以将电子邮件存储在数据库表中，该表由计划任务或存储过程处理。它们可以再次一次发送一封邮件，如果出现问题，还可以重试