Не удалось отправить сообщение на smtp сервер код ошибки транспорта 0x80040217 отклик сервера not available

Я пытаюсь отправить электронную почту

Но я получаю эту ошибку.

Сообщение не может быть отправлено на SMTP-сервер. Код ошибки транспорта был 0x80040217. Ответ сервера не был доступен

любой, кто имеет какое-либо представление об этом, пожалуйста, помогите мне

Ответ 1

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

• Вход в адрес, который вы хотите использовать для отправки электронной почты из Excel.
• Посетите страницу https://www.google.com/settings/security/lesssecureapps
• Нажмите «Включить менее безопасные приложения».
• Нажмите «Готово».

Ответ 2

Это вызвано неправильным именем пользователя или паролем для SMTP-сервера и
обычно означает, что сервер отключил вашу учетную запись для рассылки спама i
вы отправили 1500 писем

Ответ 3

Спасибо за ваши ответы, это сработало! это потому, что у меня не было этой опции:
https://www.google.com/settings/security/lesssecureapps
Если кому-то это понадобится, это код VBScript, который я использую в Qlikview:

SUB SendMail
    Dim objEmail

    Const cdoSendUsingPort = 2  ' Send the message using SMTP
    Const cdoBasicAuth = 1      ' Clear-text authentication
    Const cdoTimeout = 60       ' Timeout for SMTP in seconds

     mailServer = "smtp.gmail.com"
     SMTPport = 465     '25 'SMTPport = 465
     mailusername = "marcos.esgu**@gmail.com"
     mailpassword = "Ki***"

     mailto = "marcos.esgu**@*****" 
     mailSubject = "my test-deleteme" 
     mailBody = "This is the email body" 

    Set objEmail = CreateObject("CDO.Message")
    Set objConf = objEmail.Configuration
    Set objFlds = objConf.Fields

    With objFlds
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = mailServer
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTPport
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = cdoTimeout
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasicAuth
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = mailusername
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mailpassword
        .Update
    End With

    objEmail.To = mailto
    objEmail.From = mailusername
    objEmail.Subject = mailSubject
    objEmail.TextBody = mailBody
    'objEmail.AddAttachment "C:report.pdf"
    objEmail.Send

    Set objFlds = Nothing
    Set objConf = Nothing
    Set objEmail = 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();

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

Исключение

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

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

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

Доброго всем!

Отправляю письмо всем известным скриптом:

loConfig         = Новый COMОбъект(«CDO.Configuration»);

        loCdoMessage     = Новый COMОбъект(«CDO.Message»);

        loCdoMessage.Configuration = loConfig;

        loCdoMessage.From    = Строка(«Отправитель»»»» <«+Оправитель+»>»);    

        loCdoMessage.To      = Получатель;

        loCdoMessage.Subject = ТемаСообщения;

        
        HTMLBody = «<html>

        |<head>

        |<meta content=»»text/html; charset=Windows-1251″» http-equiv=»»content-type»»>

        |<title> Электронное сообщение </title>

        |</head>

        |<body>

        |<h4>» + СокрЛП(СтрЗаменить(СообщениеТекст, Символы.ПС,»<br>»)) + «</h4>

        |<p></p>

        |</body>

        |</html>»;

        loCdoMessage.BodyPart.Charset = «windows-1251»; // это если делать без извратов с оформлением текста письма

        loCdoMessage.HTMLBody = HTMLBody;

        
        Если ТипЗнч(СписокВложений) = Тип(«Строка») И Не СписокВложений = «» Тогда

            Попытка

                loCdoMessage.AddAttachment(СписокВложений);

            Исключение

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

        ИначеЕсли ТипЗнч(СписокВложений) = Тип(«СписокЗначений») Тогда

            Для каждого ПутьКВложению Из СписокВложений Цикл

                Попытка

                    loCdoMessage.AddAttachment(ПутьКВложению.Значение);

                Исключение

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

            КонецЦикла;

        КонецЕсли;

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

        loConfig.Fields.Item(«http://schemas.microsoft.com/cdo/configuration/smtpserver»;).           Value = АдресСервера; //»smtp.yandex.ru»;

        loConfig.Fields.Item(«http://schemas.microsoft.com/cdo/configuration/smtpserverport»;).       Value = СокрЛП(Порт); //»465″;

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

        loConfig.Fields.Item(«http://schemas.microsoft.com/cdo/configuration/sendusername»;).         Value = Оправитель;

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

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

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

        
        loConfig.Fields.Update();  

        Попытка

            loCdoMessage.Send();

            
            Результат = Истина;

        Исключение

            #Если Клиент Тогда

                Сообщить(ОписаниеОшибки());

            #КонецЕсли

            
            Результат = Ложь;

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

И тут начинаются чудеса. Имеется 3 разных почтовых ящика с которых могут отправлять письма:

1) price@yandex.ru

2) oz.2152902@gmail.com

и

3) 2152901@gmail.com

С первых двух письма уходят без проблем, а вот с третьего возникает ошибка при отправке:

Ошибка при вызове метода контекста (Send): Произошла исключительная ситуация: Не удалось отправить сообщение на SMTP-сервер. Код ошибки транспорта: 0x80040217. Отклик сервера: not available

И больше всего меня смущает тот факт, что 2 и 3 ящики находятся на gmail.com и соответственно имеют совершенно одинаковые настройки (отличаются только логин и пароль..которые я уже раз 10 проверил). Вот только со второго все уходит ,а третий дает ошибку!

Что это может быть? Куда капать? В инете капался…решения найдено не было