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

ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку «Обновить» в браузере.

Ветка сдана в архив. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.

Перейти к содержимому раздела

Форумы TDMS

Technical Data Management System

Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.

Дерево сообщений Активные темы Темы без ответов

public sub send_notification(to_address, body, subject, from_address)
  'if from_address = empty then 
  if from_address = "" then from_address = ThisApplication.CurrentUser.Mail
  if from_address = "" then from_address = "xxx@yyy.ru"
  if subject = empty then subject = "Уведомление системы электронного документооборота (TDMS)"
  
  Set objConf = CreateObject("CDO.Configuration")
  Set objEmail = CreateObject("CDO.Message")
  Set objFlds = objConf.Fields
  
  With objFlds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort это порт
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "10.20.111.222" ' Имя SMTP сервера
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 2
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    .Update
  End With
  
  Set objEmail.Configuration = objConf
  objEmail.From = from_address
  objEmail.To = to_address
  objEmail.Subject = subject
  'objEmail.Textbody = body
  objEmail.HTMLBody = body
  objEmail.DSNOptions = 14  'Success, failure or delay (cdoDSNSuccessFailOrDelay)
  objEmail.Fields.Update
  objEmail.Send
end sub

With cdoConfig.Fields
    .Item(cdoConfigURL & "sendusing") = 2
    .Item(cdoConfigURL & "smtpauthenticate") = 1
    .Item(cdoConfigURL & "smtpserver") = SMTPserver
    .Item(cdoConfigURL & "sendusername") = sendusername
    .Item(cdoConfigURL & "sendpassword") = sendpassword
' для отправки почты с аккаунта @gmail.com
    .Item(cdoConfigURL & "smtpserverport") = 465 'порт для SSL: 465
    .Item(cdoConfigURL & "smtpusessl") = 1  'использовать аутентификацию: да
    .Update
End With

Сообщения 5

Тему читают: 1 гость

Я работаю над классическим сайтом ASP и Vbscript, который использует CDO.Message для отправки электронной почты в функции. У меня проблемы с этой функцией, и я получаю сообщение об ошибке,

CDO.Message.1 error '80040213'

The transport failed to connect to the server.

Я считаю, что это связано с настройками аутентификации SMTP и общим хостом, на котором мы работаем. Я ищу помощь в отладке проблемы дальше.

Вот основной фрагмент кода из функции,

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

Сначала я подумал, что это могли быть закомментированные строки 9-13 в приведенном выше фрагменте, но оказалось, что предыдущий разработчик прокомментировал их намеренно и что функция электронной почты в какой-то момент все еще работала. Раскомментирование этих строк по-прежнему не устраняет ошибку.

Может ли кто-нибудь увидеть что-нибудь, что я мог пропустить? Кто-нибудь знает, какие значения по умолчанию для CDO.Configuration и какие настройки SMTP этот код пытается использовать с нашим общим хостом? Должен ли я сначала позвонить нашему хостингу и уточнить у них?

У меня были трудные времена с CDO, пока я не включил библиотеку типов вверху страницы asp. Обратите внимание, что typelib не находится внутри разделителей <% %>. Строка typelib довольно длинная, поэтому вам нужно прокрутить вправо, чтобы прочитать ее всю.

Попробуйте сначала добавить на страницу только оператор typelib.

Если это не сработает, попробуйте остальной код ниже. Я успешно использовал этот код на своих веб-сайтах, размещенных на Godaddy. Конечно, вам нужно будет указать информацию о вашем почтовом сервере и логин/пароль, если это необходимо.

<!--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
%>

Я изменил cdoSMTPServer на localhost, все готово!

Сегодня у одних моих клиентов перестала работать отправка почты через 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();

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

Исключение

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

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

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

Сегодня у одних моих клиентов перестала работать отправка почты через 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();

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

Исключение

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

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

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

• Remove From My Forums

Отправка сообщений

• Вопрос

• Добрый день,

  Подскажите в чем может быть дело.

  есть два сервера, один почтовый второй контроллер домена, с домена пытаюсь отправить отчет о использовании квоты. Тестовую отправку письма делает, а когда по расписанию, то отчет создаетья но не отправляеться. Сервер выдает такое сообщение (e-mail в отчете изменен):

  Тип события: Предупреждение
  Источник события: SRMREPORTS
  Категория события: Отсутствует
  Код события: 150
  Дата:  30.12.2006
  Время:  13:22:27
  Пользователь:  Н/Д
  Компьютер: DC-LCK-001
  Описание:
  Ошибка отправки отчета по электронной почте. Проверьте настройки сервера SMTP.

  Контекст:
   —

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

   — SMTP-сервер = ex-lck-001.email.com
   — Кому = email@email.com
   — От = email@email.com
   — Файл преобразования XSLT = C:WINDOWSsystem32srmXSLTQuotaUsage_HTML.xsl
   — Формат вывода = Html
   — Адресат = email@email.com
   — Имя отчета = Использованиеквоты9

  Дополнительные сведения можно найти в центре справки и поддержки, в «http://go.microsoft.com/fwlink/events.asp».