Показано с 1 по 5 из 5
-
16.08.2016, 01:02 #1
- Регистрация
- 17.11.2011
- Сообщений
- 4
- Сказал(а) спасибо
- 0
- Поблагодарили 0 раз(а) в 0 сообщениях
не получается отправить эл.сообщение программно
Всем привет. Прошу помощи умных людей. Гляньте код, что не так написал? Ошибок при выполнении кода не возникает, но фактически эл.письмо на указанный в коде эл.ящик не приходит. Код написал в форме внешней обработки.
СисУчетка = справочники.УчетныеЗаписи� �лектроннойПочты.Системная УчетнаяЗаписьЭлектроннойП очты;
Письмо = Новый ИнтернетПочтовоеСообщение ;
Письмо.ИмяОтправителя = ПараметрыСеанса.ТекущийПо� �ьзователь;
Письмо.Отправитель = сисучетка.АдресЭлектронно� �Почты;
Получатель = Письмо.Получатели.Добавить ();
Получатель.Адрес = "[email protected]";
Письмо.Тема = "автоматом ушло";
ПрофильОтправки = Новый ИнтернетПочтовыйПрофиль;
ПрофильОтправки.АдресСерв� �раSMTP = СисУчетка.SMTPСервер;
ПрофильОтправки.ПортSMTP = СисУчетка.ПортSMTP;
ПрофильОтправки.АдресСерв� �раPOP3 = СисУчетка.POP3Сервер;
ПрофильОтправки.ПортPOP3 = СисУчетка.ПортPOP3;
ПрофильОтправки.Аутентифи� �ацияSMTP=СпособSMTPАутентифик ации.БезАутентификации;
//ПрофильОтправки.Пользоват� �льSMTP = СисУчетка.Логин;
//ПрофильОтправки.ПарольSMTP = СисУчетка.Пароль;
ПрофильОтправки.Пользоват� �ль = СисУчетка.Логин;
ПрофильОтправки.Пароль = СисУчетка.Пароль;
Почта = Новый ИнтернетПочта;
Попытка
Почта.Подключиться(Профиль Отправки);
Исключение
ОбщегоНазначения.Сообщить� �бОшибке(ОписаниеОшибки(),, "Электронное сообщение не отправлено.");
Возврат;
КонецПопытки;
Попытка
Почта.Послать(Письмо);
Исключение
ОбщегоНазначения.Сообщить� �бОшибке(ОписаниеОшибки(),, "Электронное сообщение не отправлено.");
Возврат;
КонецПопытки;
Почта.Отключиться();
-
16.08.2016, 08:53 #2
- Регистрация
- 29.01.2010
- Сообщений
- 1212
- Сказал(а) спасибо
- 30
- Поблагодарили 261 раз(а) в 245 сообщениях
Re: не получается отправить эл.сообщение программно
Ты посылаешь на "внешний почтовый ящик", как правило такие ящики работают только через SSL. Я не вижу у тебя (тут нужно показывать настройки твоей учетки), что ты работаешь через SSL - это раз, а второе - 1Ска плохо работает через SSL, тут тебе нужно курить например тему Stunel - https://www.google.ru/search?q=Stune...1&q=stunnel+1c
-
16.08.2016, 23:19 #3
- Регистрация
- 17.11.2011
- Сообщений
- 4
- Сказал(а) спасибо
- 0
- Поблагодарили 0 раз(а) в 0 сообщениях
Re: не получается отправить эл.сообщение программно
Посмотрел код, как при отправке документа ЭлектронноеПисьмо. Сделал по образу и подобию. Т.е. в отладчике сравниваю свойства "Профиль" и "ПочтовоеСообщение" при типовой отправке с помощью ЭлектронногоПисьма и моей обработке. Свойства Идентичны!
Ошибок при подключении к профилю и отправке не возникает, но письмо упорно не приходит к адресату. Ниже приведен код:
Процедура КнопкаВыполнитьНажатие(Кн� �пка)
СисУчетка = справочники.УчетныеЗаписи� �лектроннойПочты.Системная УчетнаяЗаписьЭлектроннойП очты;
Профиль = УправлениеЭлектроннойПочт ой.ПолучитьИнтернетПочтов� �йПрофиль(СисУчетка);
ИнтернетПочта = Новый ИнтернетПочта;
Попытка
ИнтернетПочта.Подключитьс� �(Профиль);
Исключение
Сообщить("Не удалось подключиться к профилю сисУчетка");
возврат;
КонецПопытки;
ПочтовоеСообщение = Новый ИнтернетПочтовоеСообщение ;
ПочтовоеСообщение.ИмяОтпр� �вителя = "S1C УПП";
ПочтовоеСообщение.Отправи� �ель = сисучетка.АдресЭлектронно� �Почты;
ПочтовоеСообщение.Тема = "проверка отправки 16-08-16";
Получатель = ПочтовоеСообщение.Получат� �ли.Добавить();
Получатель.Адрес = "[email protected]";
Получатель.Кодировка = "utf-8";
Попытка
ИнтернетПочта.Послать(Почт овоеСообщение);
Исключение
Сообщить("Не удалось выполнить код(ИнтернетПочта.Послать(� �очтовоеСообщение))");
КонецПопытки;
ИнтернетПочта.Отключиться( );
КонецПроцедуры
-
16.08.2016, 23:45 #4
- Регистрация
- 29.01.2010
- Сообщений
- 1212
- Сказал(а) спасибо
- 30
- Поблагодарили 261 раз(а) в 245 сообщениях
Re: не получается отправить эл.сообщение программно
Ты не читаешь что тебе пишутИ? Я дал тебе ссылку с описанием решения проблемы:
После массового перехода ведущих поставщиков эл. почты в РФ [mail.ru yandex.ru], на защищенный тип соединений SSL, произошла массовая “истерия” у программистов 1С. Так как данный продукт в свой базовой версии 8.2 не умеет работать с почтой с использованием SSL.
-
17.08.2016, 00:26 #5
- Регистрация
- 17.11.2011
- Сообщений
- 4
- Сказал(а) спасибо
- 0
- Поблагодарили 0 раз(а) в 0 сообщениях
Re: не получается отправить эл.сообщение программно
ну так а почему типовой документ ЭлектронноеПисьмо отправляется тогда штатными средствами 1с на платформе 8.2 ?
Похожие темы
-
УТ 11. Добавить запись в справочник партнеры программно (обработкой)
от asadroman в разделе 1С - Предприятие 8.0, 8.1, 8.2, 8.3Ответов: 0Последнее сообщение: 03.11.2014, 11:46
Социальные закладки