Показано с 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 = СисУчетка.Пароль;
ПрофильОтправки.Пользоват� �ль = СисУчетка.Логин;
ПрофильОтправки.Пароль = СисУчетка.Пароль;
Почта = Новый ИнтернетПочта;
Попытка
Почта.Подключиться(Профиль Отправки);
Исключение
ОбщегоНазначения.Сообщить� �бОшибке(ОписаниеОшибки(),, "Электронное сообщение не отправлено.");
Возврат;
КонецПопытки;
Попытка
Почта.Послать(Письмо);
Исключение
ОбщегоНазначения.Сообщить� �бОшибке(ОписаниеОшибки(),, "Электронное сообщение не отправлено.");
Возврат;
КонецПопытки;
Почта.Отключиться();
Похожие темы
-
УТ 11. Добавить запись в справочник партнеры программно (обработкой)
от asadroman в разделе 1С - Предприятие 8.0, 8.1, 8.2, 8.3Ответов: 0Последнее сообщение: 03.11.2014, 11:46
Социальные закладки