PDA

Просмотр полной версии : не получается отправить эл.сообщение программно



altaykniga
16.08.2016, 00:02
Всем привет. Прошу помощи умных людей. Гляньте код, что не так написал? Ошибок при выполнении кода не возникает, но фактически эл.письмо на указанный в коде эл.ящик не приходит. Код написал в форме внешней обработки.

СисУчетка = справочники.УчетныеЗаписи� �лектроннойПочты.Системная УчетнаяЗаписьЭлектроннойП очты;
Письмо = Новый ИнтернетПочтовоеСообщение ;
Письмо.ИмяОтправителя = ПараметрыСеанса.ТекущийПо� �ьзователь;
Письмо.Отправитель = сисучетка.АдресЭлектронно� �Почты;
Получатель = Письмо.Получатели.Добавить ();
Получатель.Адрес = "[email protected]";
Письмо.Тема = "автоматом ушло";

ПрофильОтправки = Новый ИнтернетПочтовыйПрофиль;
ПрофильОтправки.АдресСерв� �раSMTP = СисУчетка.SMTPСервер;
ПрофильОтправки.ПортSMTP = СисУчетка.ПортSMTP;
ПрофильОтправки.АдресСерв� �раPOP3 = СисУчетка.POP3Сервер;
ПрофильОтправки.ПортPOP3 = СисУчетка.ПортPOP3;

ПрофильОтправки.Аутентифи� �ацияSMTP=СпособSMTPАутентифик ации.БезАутентификации;
//ПрофильОтправки.Пользоват� �льSMTP = СисУчетка.Логин;

//ПрофильОтправки.ПарольSMTP = СисУчетка.Пароль;


ПрофильОтправки.Пользоват� �ль = СисУчетка.Логин;
ПрофильОтправки.Пароль = СисУчетка.Пароль;

Почта = Новый ИнтернетПочта;

Попытка
Почта.Подключиться(Профиль Отправки);
Исключение
ОбщегоНазначения.Сообщить� �бОшибке(ОписаниеОшибки(),, "Электронное сообщение не отправлено.");
Возврат;
КонецПопытки;

Попытка
Почта.Послать(Письмо);
Исключение
ОбщегоНазначения.Сообщить� �бОшибке(ОписаниеОшибки(),, "Электронное сообщение не отправлено.");
Возврат;
КонецПопытки;

Почта.Отключиться();

avm3110
16.08.2016, 07:53
Получатель.Адрес = "[email protected]";


Ты посылаешь на "внешний почтовый ящик", как правило такие ящики работают только через SSL. Я не вижу у тебя (тут нужно показывать настройки твоей учетки), что ты работаешь через SSL - это раз, а второе - 1Ска плохо работает через SSL, тут тебе нужно курить например тему Stunel - https://www.google.ru/search?q=Stunel&oq=Stunel&aqs=chrome..69i57&sourceid=chrome&ie=UTF-8#newwindow=1&q=stunnel+1c

altaykniga
16.08.2016, 22:19
Посмотрел код, как при отправке документа ЭлектронноеПисьмо. Сделал по образу и подобию. Т.е. в отладчике сравниваю свойства "Профиль" и "ПочтовоеСообщение" при типовой отправке с помощью ЭлектронногоПисьма и моей обработке. Свойства Идентичны!
Ошибок при подключении к профилю и отправке не возникает, но письмо упорно не приходит к адресату. Ниже приведен код:

Процедура КнопкаВыполнитьНажатие(Кн� �пка)
СисУчетка = справочники.УчетныеЗаписи� �лектроннойПочты.Системная УчетнаяЗаписьЭлектроннойП очты;
Профиль = УправлениеЭлектроннойПочт ой.ПолучитьИнтернетПочтов� �йПрофиль(СисУчетка);

ИнтернетПочта = Новый ИнтернетПочта;

Попытка
ИнтернетПочта.Подключитьс� �(Профиль);
Исключение
Сообщить("Не удалось подключиться к профилю сисУчетка");
возврат;
КонецПопытки;

ПочтовоеСообщение = Новый ИнтернетПочтовоеСообщение ;

ПочтовоеСообщение.ИмяОтпр� �вителя = "S1C УПП";
ПочтовоеСообщение.Отправи� �ель = сисучетка.АдресЭлектронно� �Почты;
ПочтовоеСообщение.Тема = "проверка отправки 16-08-16";

Получатель = ПочтовоеСообщение.Получат� �ли.Добавить();
Получатель.Адрес = "[email protected]";
Получатель.Кодировка = "utf-8";

Попытка

ИнтернетПочта.Послать(Почт овоеСообщение);
Исключение
Сообщить("Не удалось выполнить код(ИнтернетПочта.Послать(� �очтовоеСообщение))");
КонецПопытки;

ИнтернетПочта.Отключиться( );

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

avm3110
16.08.2016, 22:45
Ты не читаешь что тебе пишутИ? Я дал тебе ссылку с описанием решения проблемы:

После массового перехода ведущих поставщиков эл. почты в РФ [mail.ru yandex.ru], на защищенный тип соединений SSL, произошла массовая “истерия” у программистов 1С. Так как данный продукт в свой базовой версии 8.2 не умеет работать с почтой с использованием SSL.

altaykniga
16.08.2016, 23:26
ну так а почему типовой документ ЭлектронноеПисьмо отправляется тогда штатными средствами 1с на платформе 8.2 ?