altaykniga
16.08.2016, 01:02
Всем привет. Прошу помощи умных людей. Гляньте код, что не так написал? Ошибок при выполнении кода не возникает, но фактически эл.письмо на указанный в коде эл.ящик не приходит. Код написал в форме внешней обработки.
СисУчетка = справочники.УчетныеЗаписи� �лектроннойПочты.Системная УчетнаяЗаписьЭлектроннойП очты;
Письмо = Новый ИнтернетПочтовоеСообщение ;
Письмо.ИмяОтправителя = ПараметрыСеанса.ТекущийПо� �ьзователь;
Письмо.Отправитель = сисучетка.АдресЭлектронно� �Почты;
Получатель = Письмо.Получатели.Добавить ();
Получатель.Адрес = "[email protected]";
Письмо.Тема = "автоматом ушло";
ПрофильОтправки = Новый ИнтернетПочтовыйПрофиль;
ПрофильОтправки.АдресСерв� �раSMTP = СисУчетка.SMTPСервер;
ПрофильОтправки.ПортSMTP = СисУчетка.ПортSMTP;
ПрофильОтправки.АдресСерв� �раPOP3 = СисУчетка.POP3Сервер;
ПрофильОтправки.ПортPOP3 = СисУчетка.ПортPOP3;
ПрофильОтправки.Аутентифи� �ацияSMTP=СпособSMTPАутентифик ации.БезАутентификации;
//ПрофильОтправки.Пользоват� �льSMTP = СисУчетка.Логин;
//ПрофильОтправки.ПарольSMTP = СисУчетка.Пароль;
ПрофильОтправки.Пользоват� �ль = СисУчетка.Логин;
ПрофильОтправки.Пароль = СисУчетка.Пароль;
Почта = Новый ИнтернетПочта;
Попытка
Почта.Подключиться(Профиль Отправки);
Исключение
ОбщегоНазначения.Сообщить� �бОшибке(ОписаниеОшибки(),, "Электронное сообщение не отправлено.");
Возврат;
КонецПопытки;
Попытка
Почта.Послать(Письмо);
Исключение
ОбщегоНазначения.Сообщить� �бОшибке(ОписаниеОшибки(),, "Электронное сообщение не отправлено.");
Возврат;
КонецПопытки;
Почта.Отключиться();
СисУчетка = справочники.УчетныеЗаписи� �лектроннойПочты.Системная УчетнаяЗаписьЭлектроннойП очты;
Письмо = Новый ИнтернетПочтовоеСообщение ;
Письмо.ИмяОтправителя = ПараметрыСеанса.ТекущийПо� �ьзователь;
Письмо.Отправитель = сисучетка.АдресЭлектронно� �Почты;
Получатель = Письмо.Получатели.Добавить ();
Получатель.Адрес = "[email protected]";
Письмо.Тема = "автоматом ушло";
ПрофильОтправки = Новый ИнтернетПочтовыйПрофиль;
ПрофильОтправки.АдресСерв� �раSMTP = СисУчетка.SMTPСервер;
ПрофильОтправки.ПортSMTP = СисУчетка.ПортSMTP;
ПрофильОтправки.АдресСерв� �раPOP3 = СисУчетка.POP3Сервер;
ПрофильОтправки.ПортPOP3 = СисУчетка.ПортPOP3;
ПрофильОтправки.Аутентифи� �ацияSMTP=СпособSMTPАутентифик ации.БезАутентификации;
//ПрофильОтправки.Пользоват� �льSMTP = СисУчетка.Логин;
//ПрофильОтправки.ПарольSMTP = СисУчетка.Пароль;
ПрофильОтправки.Пользоват� �ль = СисУчетка.Логин;
ПрофильОтправки.Пароль = СисУчетка.Пароль;
Почта = Новый ИнтернетПочта;
Попытка
Почта.Подключиться(Профиль Отправки);
Исключение
ОбщегоНазначения.Сообщить� �бОшибке(ОписаниеОшибки(),, "Электронное сообщение не отправлено.");
Возврат;
КонецПопытки;
Попытка
Почта.Послать(Письмо);
Исключение
ОбщегоНазначения.Сообщить� �бОшибке(ОписаниеОшибки(),, "Электронное сообщение не отправлено.");
Возврат;
КонецПопытки;
Почта.Отключиться();