Я пишу заявку на рассылку новостей с помощью CDO.Message. Но верните ошибку, которую мы связываем со многими подключениями. Кажется, у них есть ограничение на 10 одновременных соединений.CDO.Message - для многих соединений
Итак, есть ли способ отправить несколько сообщений по одному соединению или быстрее отключиться? Существует параметр cdo/configuration/smtpconnectiontimeout, но я думаю, что это больше о том, как долго будет отправляться отправитель.
(Если мы отправим, ant оно не удастся, после нескольких минут это снова будет успешным, что, вероятно, означает, что соединение отключено).
(Мы используем CDO отчасти потому, что мы вытягивать тело HTML сообщение с веб-сервера)
Edit:
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
Было бы полезно, по крайней мере, рассказать нам, с какого языка вы это пишете. –
Public Sub ipSendMail (ByVal toEmail As String, ByVal fromEmail As String, ByVal субъект As String, ByVal URL As String) Dim IMSG As Object = CreateObject ("CDO.Message") iMsg.From = fromEmail iMsg.To = toEmail iMsg.Subject = предмет iMsg.CreateMHTMLBody (URL) – Olav
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 _ – Olav