Ошибка cdo транспорту не удалось подключиться к серверу

I’m working on a Classic ASP & Vbscript site that uses CDO.Message to send email in a function. I’m running into trouble with this function and am recieving the error,

CDO.Message.1 error '80040213'

The transport failed to connect to the server.

I believe it has to do with the SMTP authentication settings and the shared host we are running on. I am looking for help debugging the issue further.

Here is the main code snippet from the function,

Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields

' Set config fields we care about
With Fields
 .Item(cdoSendUsingMethod)       = cdoSendUsingPort
 .Item(cdoSMTPServer)            = "mail.<website>.com"

 '.Item(cdoSMTPServerPort)        = 25
 '.Item(cdoSMTPConnectionTimeout) = 10
 '.Item(cdoSMTPAuthenticate)      = cdoBasic
 '.Item(cdoSendUserName)          = "support"
 '.Item(cdoSendPassword)          = "password"

 .Update
End With

Set objMessage = Server.CreateObject("CDO.Message")

Set objMessage.Configuration = objConfig

With objMessage
 .To       = lEmailTo                   '"Display Name <email_address>"
 .From     = lEmailFrom                 '"Display Name <email_address>"
 .Subject  = lSubject
 .TextBody = lMessage
 .Send
End With

At first I believed it might have been with the commented lines 9-13 in the above snippet, but it appears that a previous developer commented them on purpose and that the email function was still working at some point in time. Uncommenting those lines still doesn’t solve the error.

Can anyone see anything I might be missing? Does anyone know what the defaults for CDO.Configuration are and what SMTP settings this code is trying to use with our shared host? Should I first call our hosting & clarify with them?

I’m working on a Classic ASP & Vbscript site that uses CDO.Message to send email in a function. I’m running into trouble with this function and am recieving the error,

CDO.Message.1 error '80040213'

The transport failed to connect to the server.

I believe it has to do with the SMTP authentication settings and the shared host we are running on. I am looking for help debugging the issue further.

Here is the main code snippet from the function,

Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields

' Set config fields we care about
With Fields
 .Item(cdoSendUsingMethod)       = cdoSendUsingPort
 .Item(cdoSMTPServer)            = "mail.<website>.com"

 '.Item(cdoSMTPServerPort)        = 25
 '.Item(cdoSMTPConnectionTimeout) = 10
 '.Item(cdoSMTPAuthenticate)      = cdoBasic
 '.Item(cdoSendUserName)          = "support"
 '.Item(cdoSendPassword)          = "password"

 .Update
End With

Set objMessage = Server.CreateObject("CDO.Message")

Set objMessage.Configuration = objConfig

With objMessage
 .To       = lEmailTo                   '"Display Name <email_address>"
 .From     = lEmailFrom                 '"Display Name <email_address>"
 .Subject  = lSubject
 .TextBody = lMessage
 .Send
End With

At first I believed it might have been with the commented lines 9-13 in the above snippet, but it appears that a previous developer commented them on purpose and that the email function was still working at some point in time. Uncommenting those lines still doesn’t solve the error.

Can anyone see anything I might be missing? Does anyone know what the defaults for CDO.Configuration are and what SMTP settings this code is trying to use with our shared host? Should I first call our hosting & clarify with them?

6743 просмотра

1 ответ

0 Репутация автора

У меня есть код ниже для отправки почты из макроса VBA с использованием CDO. Я получаю ошибку в коде:

Транспорт не удалось подключиться к серверу Ошибка

Я отправляю почту из службы Gmail SMTP. Похоже, что конфигурация настроена правильно, но почему-то она не работает.

Ответы (1)

1 плюс

11825 Репутация автора

Этот код прекрасно работает для меня (отправка из Gmail в Gmail), поэтому вам необходимо проверить следующее:

• попробуйте это с портом 587, а также с портом 465 ( дальнейшее чтение )
• настроить отправляющий аккаунт в Gmail для Access for less secure apps — есть Turn On опция на следующей странице поддержки

Предоставление менее безопасным приложениям доступа к вашей учетной записи Google может блокировать попытки входа в некоторые приложения или устройства, которые не используют современные стандарты безопасности. Поскольку эти приложения и устройства легче взломать, их блокировка помогает обеспечить безопасность вашей учетной записи.

Вот некоторые примеры приложений, которые не поддерживают новейшие стандарты безопасности:

Приложение Почта на вашем iPhone или iPad с iOS 6 или ниже

Почтовое приложение на вашем телефоне Windows Phone, предшествующее версии 8.1

Некоторые настольные почтовые клиенты, такие как Microsoft Outlook и Mozilla Thunderbird

Вариант 2. Измените настройки, чтобы менее защищенные приложения могли получить доступ к вашей учетной записи. Мы не рекомендуем эту опцию, потому что это может помочь кому-то взломать ваш аккаунт. Если вы хотите разрешить доступ в любом случае, выполните следующие действия:

Перейдите в раздел «Менее безопасные приложения» в Моем аккаунте.

Рядом с «Доступ к менее защищенным приложениям» выберите Включить. (Примечание для пользователей Google Apps: этот параметр скрыт, если ваш администратор заблокировал менее безопасный доступ к учетной записи приложения.)

CDO сейчас довольно старый, поэтому предположим, что это пример приложения, которое не поддерживает последние стандарты безопасности .

Я знаю, что к этому относится несколько потоков, но никто из них не ответил на мой вопрос.

Только код (VBScript):

С этим кодом все работает отлично с моим компьютером. Но на других ПК эта ошибка появляется:

CDO.MESSAGE.1 Транспорт не удалось подключиться к серверу.

1. Проверка через telnet порт 25, 465, 587. Только 465 не работали.
2. Изменение порта на 465, 25, 587.
3. исключить мой.exe (эта программа) в AntiVirus.

У меня есть эти smtpusessl, authetate и т.д.

Я понятия не имею, что делать и проверять. Возможно ли, что система блокирует эту активность?

Я нашел причину этой проблемы, кажется, что это делает ISP. Я попытался в более чем 2 ISP в более чем 3 компьютерах, скажем, A, B, C. A и B отлично работают с тем же кодом, но каждый компьютер с ошибкой поставщика C. используя порт 587 или 465, оба работают нормально. Я действительно не понимаю об этом порту, но оба работают нормально.

теперь я столкнулся с другой ошибкой, которую я опубликую в другой. Теперь нет ошибки, но она не отправила почту.

Пользователи Gmail могут получить доступ к своей учетной записи на официальном веб-сайте или использовать сторонние или сторонние приложения и службы. Первое приложение-участник — это, например, официальное приложение Gmail Google для Android, а Thunderbird и почтовое клиентское приложение Windows 8 — сторонние приложения.

Google объявила в апреле 2014 года, что она улучшит безопасность своих служб и будет влиять на любое приложение, отправляющее имена пользователей и пароли в компанию.

Компания предложила переключиться на OAuth 2.0, но не применяла ее до сих пор.

Если вы открываете новую страницу менее безопасных приложений под параметрами безопасности в Google, вы заметите, что по умолчанию отключил доступ Google.

Примечание. Вы видите страницу только в том случае, если вы не используете Google Apps или активировали двухфакторную аутентификацию для учетной записи.

Вы можете перевернуть переключатель здесь, чтобы снова включить менее безопасные приложения, чтобы восстановить доступ.

У меня есть следующий код для отправки почты с макроса VBA с помощью CDO. Я получаю сообщение об ошибке в коде:

Транспорт не удалось подключиться к серверу Ошибка

Я посылаю почту от службы Gmail SMTP. Похоже, что настройка настроена правильно, но почему-то это не работает.

Создан 04 янв. 17 2017-01-04 12:33:31 Harshil

1 ответ

Этот код работает совершенно нормально для меня (отправить из Gmail в Gmail) — так что вам необходимо проверить следующее:

• попробовать его с портом 587, а также порт 465 (further reading)
• настроить отправку учетной записи в Gmail для Access for less secure apps — есть Turn On вариант на следующей support page

Предоставление менее защищенных приложений для доступа к вашей учетной записи Google может блокировать попытки входа в систему из некоторых приложений или устройств, которые не используют современные стандарты безопасности. Поскольку эти приложения и устройства легче ворваться, их блокировка помогает защитить вашу учетную запись.

Некоторые примеры приложений, которые не поддерживают новейшие стандарты безопасности включают в себя:

Почтового приложение на вашем iPhone или IPad с прошивкой 6 или ниже

The Mail приложение на телефоне Windows, предшествующей версии 8.1

Некоторые Desktop почтовые клиенты, такие как Microsoft Outlook и Mozilla Thunderbird

Вариант 2. Измените свои настройки, чтобы менее безопасные приложения могли получить доступ к вашей учетной записи. Мы не рекомендуем этот вариант, потому что это может облегчить кому-то проникновение в вашу учетную запись. Если вы хотите разрешить доступ в любом случае, выполните следующие действия:

Перейдите в раздел «Менее безопасные приложения» в разделе «Моя учетная запись».

Рядом с «Доступ для менее безопасных приложений» выберите Включить. (Примечание для пользователей Служб Google: Эта настройка скрыта, если администратор заблокировал менее безопасный доступ приложение учетной записи.)

CDO довольно стара так предположить, что это пример приложения, которое не поддерживает последние стандарты безопасности.

Создан 04 янв. 17 2017-01-04 13:37:16 Robin Mackenzie

CDO.Message.1 error '80040213'

The transport failed to connect to the server.

Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields

' Set config fields we care about
With Fields
 .Item(cdoSendUsingMethod)       = cdoSendUsingPort
 .Item(cdoSMTPServer)            = "mail.<website>.com"

 '.Item(cdoSMTPServerPort)        = 25
 '.Item(cdoSMTPConnectionTimeout) = 10
 '.Item(cdoSMTPAuthenticate)      = cdoBasic
 '.Item(cdoSendUserName)          = "support"
 '.Item(cdoSendPassword)          = "password"

 .Update
End With

Set objMessage = Server.CreateObject("CDO.Message")

Set objMessage.Configuration = objConfig

With objMessage
 .To       = lEmailTo                   '"Display Name <email_address>"
 .From     = lEmailFrom                 '"Display Name <email_address>"
 .Subject  = lSubject
 .TextBody = lMessage
 .Send
End With

2 ответа

<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
<%
Sub SendEmail()

    Set cdoConfig = CreateObject("CDO.Configuration")

    if lcase(Request.ServerVariables("SERVER_NAME")) = "dev" then
            With cdoConfig.Fields
                    .Item(cdoSendUsingMethod) = cdoSendUsingPort
                    .Item(cdoSMTPServer) = "xxx.<devmailservername>.xxx"
                    .Item(cdoSMTPAuthenticate) = 1
                    .Item(cdoSendUsername) = "xxxxxxxx@yyyyyyyyy.com"
                    .Item(cdoSendPassword) = "<passwordgoeshere>"
                    .Update
            End With
    else
            With cdoConfig.Fields
                    .Item(cdoSendUsingMethod) = cdoSendUsingPort
                    .Item(cdoSMTPServer) = "xxx.<productionmailservername>.xxx"
                    .Update
            End With
    end if

    Set cdoMessage = CreateObject("CDO.Message")

    With cdoMessage
        Set .Configuration = cdoConfig
        .From = "xxxxxxx@yyyyyyyy.com"
        .To = "yyyyyyyy@zzzzzzzzz.com"
        .Subject = "Sample CDO Message"
        .htmlbody = "<html><body>Sample <b>CDO</b> message.</body></html>"
        .TextBody = "Sample CDO Message."
        .Send
    End With

    Set cdoMessage = Nothing
    Set cdoConfig = Nothing

End Sub
%>

Опубликовал | Дата 23 сентября, 2014

Сегодня у одних моих клиентов перестала работать отправка почты через mail.ru. Рассылка была настроена самописной внешней обработкой с использованием компоненты CDO.Configuration.

Надо сказать, что Mail.ru и Yandex.ru совсем недавно поменяли настройки своих серверов исходящей почты, из-за чего все это и случилось.

Вроде бы ничего сложного… Все настройки (имена серверов, номера портов и т.п.) есть в помощи этих служб. Но мне пришлось помучиться, чтобы все заработало.

На форумах, не смотря на многочисленные посты, внятных ответов было не много.  Для пробы, попробовал настроить почту через Яндекс — получилось с первого раза. А вот при отправке через Mail.ru выходила ошибки:

CDO.Message.1: Транспорту не удалось подключиться к серверу

и

Не удалось отправить сообщение на SMTP-сервер. Код ошибки транспорта: 0x80040217. Отклик сервера: not available

Честно говоря, даже не понял, в чем была моя ошибка, поскольку код для них в результате оказался идентичен. Приведу пример рабочего кода для обоих этих сервисов.

Яндекс:

Процедура ОтправитьПисьмо()

iConf = CreateObject(«CDO.Configuration»);

iMsg = CreateObject(«CDO.Message»);

iMsg.Configuration = iConf;

iMsg.From          = «Программист 1C»»»» «;

iMsg.To            = «poluchatel@mail.ru»;

iMsg.Subject       = «Тема письма»;

iMsg.textBody      = «Тело письма»;

iMsg.BodyPart.Charset = «windows-1251»;

iMsg.AddAttachment(«D:1.txt»);

iConf.Fields.Item(«http://schemas.microsoft.com/cdo/configuration/sendusing»).            Value = 2;

iConf.Fields.Item(«http://schemas.microsoft.com/cdo/configuration/smtpserver»).           Value = «smtp.yandex.ru»;

iConf.Fields.Item(«http://schemas.microsoft.com/cdo/configuration/smtpserverport»).       Value = «465»;

iConf.Fields.Item(«http://schemas.microsoft.com/cdo/configuration/smtpauthenticate»).     Value = 1;

iConf.Fields.Item(«http://schemas.microsoft.com/cdo/configuration/sendusername»).         Value = «otpravitel@yandex.ru»;

iConf.Fields.Item(«http://schemas.microsoft.com/cdo/configuration/sendpassword»).         Value = «пароль»;

iConf.Fields.Item(«http://schemas.microsoft.com/cdo/configuration/smtpusessl»).           Value = 1;

iConf.Fields.Item(«http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout»).Value = 60;

iConf.Fields.Update();

Попытка

iMsg.Send();

Сообщить(«Письмо отправлено.»);

Исключение

Сообщить(«Письмо не отправлено. Ошибка : «+Ошибка = ОписаниеОшибки(); ,»!»);

КонецПопытки;

КонецПроцедуры

Mail.ru

Процедура ОтправитьПисьмо()

iConf = CreateObject(«CDO.Configuration»);

iMsg = CreateObject(«CDO.Message»);

iMsg.Configuration = iConf;

iMsg.From          = «Программист 1C»»»» «;

iMsg.To            = «antmagn@mail.ru»;

iMsg.Subject       = «Тема письма»;

iMsg.textBody      = «Тело письма»;

iMsg.BodyPart.Charset = «windows-1251»;

iMsg.AddAttachment(«D:1.txt»);

iConf.Fields.Item(«http://schemas.microsoft.com/cdo/configuration/sendusing»).            Value = 2;

iConf.Fields.Item(«http://schemas.microsoft.com/cdo/configuration/smtpserver»).           Value = «smtp.mail.ru»;

iConf.Fields.Item(«http://schemas.microsoft.com/cdo/configuration/smtpserverport»).       Value = «465»;

iConf.Fields.Item(«http://schemas.microsoft.com/cdo/configuration/smtpauthenticate»).     Value = 1;

iConf.Fields.Item(«http://schemas.microsoft.com/cdo/configuration/sendusername»).         Value = «otpravitel@list.ru»;

iConf.Fields.Item(«http://schemas.microsoft.com/cdo/configuration/sendpassword»).         Value = «пароль»;

iConf.Fields.Item(«http://schemas.microsoft.com/cdo/configuration/smtpusessl»).           Value = 1;

iConf.Fields.Item(«http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout»).Value = 60;

iConf.Fields.Update();

Попытка

iMsg.Send();

Сообщить(«Письмо отправлено.»);

Исключение

Сообщить(«Письмо не отправлено. Ошибка: «+ОписаниеОшибки(),»!»);

КонецПопытки;

КонецПроцедуры