Foreversoft.ru

IT Справочник
1 просмотров
Рейтинг статьи
1 звезда2 звезды3 звезды4 звезды5 звезд
Загрузка...

Код ошибки транспорта 0x80040217

Код ошибки транспорта 0x80040217


MTK ( 2012-07-11 12:57 ) [1]

Отправляю почту с помощью такой процедуры:

procedure TfrmMain.SendSMTPMessage(Const ASMTPServer: WideString; SMTPServerPort: Integer;
Const AFrom, ATo, ASubject, ATextBody: WideString;
FileList: TStrings;
AUserName, APassword: String;
ASSL: Boolean;
Const ACharSet: W );

Var
I: Integer;
pMessage,
pAttachment,
pConfiguration,
pFields,
pField: OleVariant;
Begin
pMessage:=CreateComObject(CLASS_Message) as IDispatch;

pMessage.BodyPart.Charset:=ACharSet;
pMessage.To:=ATo;
pMessage.From:=AFrom;
pMessage.Subject:=ASubject;
pMessage.TextBody:=ATextBody;
pMessage.AutoGenerateTextBody:=True;
pMessage.MimeFormatted:=True;

for I:=0 to FileList.Count — 1 do
begin
pAttachment:=pMessage.AddAttachment(FileList[I], «», «»);
mLog.Lines.Add(» файл к отправке: » + FileList[I]);
end;

pConfiguration:=CreateComObject(CLASS_Configuration) as IDispatch;

pFields:=pConfiguration.Fields;
pField:=pFields.Item(WideString(cdoSendUsingMethod));
pField.Value:=Integer(cdoSendUsingPort);
pField:=pFields.Item(cdoSMTPServer);
pField.Value:=ASMTPServer;
pField:=pFields.Item(WideString(cdoSMTPServerPort));
pField.Value:=SMTPServerPort;
pField:=pFields.Item(WideString(cdoSMTPAuthenticate));

if APassword = «» then
pField.Value:=cdoAnonymous
else
pField.Value:=cdoBasic;

pField:=pFields.Item(WideString(cdoSendUserName));
pField.Value:=AUserName;
pField:=pFields.Item(WideString(cdoSendPassword));
pField.Value:=APassword;

if APassword <> «» then
begin
pField:=pFields.Item(WideString(cdoSMTPUseSSL));
pField.Value:=ASSL;

if ASSL then
mLog.Lines.Add(» подключение через безопасное соединение (SSL)»);
end;

Задаю такие параметры:

ASMTPServer = smtp.mail.ru
SMTPServerPort = 25
AFrom = email
ATo = email
ASubject = subject
ATextBody = textbody
FileList = список файлов
AUserName = логин (почтовый ящик)
АPassword = пароль от ящика
ASSL = FALSE

Пробую с двумя почтовыми ящиками на маил.ру.

Если параметр авторизации = cdoAnonymous, то первый ящик отправляет письмо.
А второй выдает ошибку:
«Код ошибки транспорта: 0x800ccc65. Отклик сервера: 503 Administrative prohibition — authorization required. Users in your domain are not allowed to send email without authorization. See http://help.mail.ru/mail-help/mailer/popsmtp for details»

Если параметр авторизации = cdoBasic и заполняю АPassword, то первый и второй ящик выдает ошибку.
«Не удалось отправить сообщение на SMTP-сервер. Код ошибки транспорта: 0x80040217. Отклик сервера: not available»

Подскажите, пожалуйста, где может быть ошибка.


MTK ( 2012-07-11 13:51 ) [2]

хм. список cdo констант на форум не добавляются


MTK ( 2012-07-11 13:53 ) [3]

Читать еще:  Ошибка при запуске android studio

Const
;
;
cdoSendUsingMethod = «schemas.microsoft.com/cdo/configuration/sendusing»;
cdoSMTPServer = «schemas.microsoft.com/cdo/configuration/smtpserver»;
cdoSMTPServerPort = «schemas.microsoft.com/cdo/configuration/smtpserverport»;
cdoSMTPAuthenticate = «schemas.microsoft.com/cdo/configuration/smtpauthenticate»;
cdoSendUsingPort = $00000002;
cdoAnonymous = $00000000;
cdoBasic = $00000001;
cdoSendUserName =»schemas.microsoft.com/cdo/configuration/cdoSendUserName»;
cdoSendPassword=»schemas.microsoft.com/cdo/configuration/cdoSendPassword»;
cdoSMTPUseSSL=»schemas.microsoft.com/cdo/configuration/smtpusessl»;


Dennis I. Komarov © ( 2012-07-12 22:06 ) [4]

И что? Сорсы компонента закрыты? Ну тогда ССЗБ. Курить RFC по SMTP в последних редакциях (версиях).

P.S. SMTP не сложный протокол. TTcpClient 🙂


Anatoly Podgoretsky © ( 2012-07-13 07:38 ) [5]

> Dennis I. Komarov (12.07.2012 22:06:04) [4]

Зато расширения сложные, относительно


MTK ( 2012-07-13 14:08 ) [6]

Скачал Synapse. За пару минут переделал. Теперь всё работает ))

Код ошибки транспорта 0x80040217

Summary: Transport Error Code was 0X80040217 errors might be caused by many reasons, especially bad registries or Trojan infection. And it’s easy to find that your Opening programs will be slower and response times lag as well. Most Importantly, If you run several program at the same time, your PC will encounter sudden crash and unexpected freezes. The main source of these performance decreases are startup clutter, registry errors, RAM decline, fragmented files, unnecessary or redundant program installations, etc.

Resolution: If you fix Transport Error Code was 0X80040217 error in time, your PC will run like brand new. In order to fix your errors and speed up PC, it is recommended that your download the ‘Transport Error Code was 0X80040217 Repair Tool‘. It’s an amazing software which is designed for users to troubleshoot Transport Error Code was 0X80040217 errors efficiently..

Try Transport Error Code was 0X80040217 Removal Program Now

In order to repair Transport Error Code was 0X80040217 issue, use the SmartPCFixer software program. This system optimizer software is already proven to locate, identify, and troubleshoot Transport Error Code was 0X80040217 errors. Your computer should run faster and smoother after using this software.

Читать еще:  Ошибка передачи данных по tcp ip

What Else Does SmartPCFixer Offer You?

Apart from fixing Transport Error Code was 0X80040217 problems, SmartPCFixer is designed to provide the user’s computer system with better optimization, which helps you manage startup items, desktop, browser objects, Internet, system service, Windows optimization, file extensions and so on. With these sophisticated utilities your system is tuned up to run at the optimal state.

SmartPCFixer is designed to scan, diagnose and repair your operating system. Using it results in better optimization, manages startup and desktop, assists you with maintaining browser objects, internet options, system service, and repairs file extensions. With this arsenal of powerful, sophisticated utilities your system is tuned to run at its optimal state. Included are Easy Repair Wizard, Error Utilities, File Association fixer, Register ActiveX, Shortcuts Fixer, Winsock2 Repair toolkit, Dll Fixer and more.

Conclusions:

We should never ignore Transport Error Code was 0X80040217 problem when we encounter it at the first time. If Transport Error Code was 0X80040217 error cannot be troubleshooted in a effective way, you may received more severe computer problems. Therefore, for the sake of computer security and personal information, you need to get rid of Transport Error Code was 0X80040217 error as soon as possible with the guide in this post. SmartPCFixer can be your best choice to remove Transport Error Code was 0X80040217 error in time.

1C 7.7 Отправка почты с помощью CDO

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

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

Читать еще:  Ошибка при запуске ноутбука

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

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

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

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

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

Яндекс:

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

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

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

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;

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

Mail.ru

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

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

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

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;

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

Ссылка на основную публикацию
Adblock
detector