我正在使用 CDO.Message 编写时事通讯应用程序。但是得到一个错误,我们有很多连接。似乎他们有 10 个同时连接的限制。
那么,有没有办法在一个连接上发送多条消息,或者更快地断开连接?有一个 cdo/configuration/smtpconnectiontimeout 参数,但我认为这更多的是关于发件人将尝试多长时间。
(如果我们发送失败,它会在几分钟后再次成功,可能意味着连接已断开)。
(我们使用 CDO 的部分原因是我们从网络服务器中提取 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