Ошибки в отправке писем на внешние адреса получателем
Коллеги, добрый день!
Была сделана доработка небольшая. Не могу понять, где ошибка.
Подскажите, пож-та.
Описание ошибки
Была сделана доработка небольшая. Не могу понять, где ошибка.
Подскажите, пож-та.
Функция ПолучитьИнтернетПочтовыйПрофиль(УчетнаяЗапись) Экспорт
СистемнаяИнформация = Новый СистемнаяИнформация;
Если ОбщегоНазначенияКлиентСервер.СравнитьВерсии(СистемнаяИнформация.ВерсияПриложения, "8.3.1.0") > 0 Тогда
ТекстЗапроса =
"ВЫБРАТЬ РАЗРЕШЕННЫЕ
| УчетныеЗаписиЭлектроннойПочты.POP3Сервер КАК АдресСервераPOP3,
| УчетныеЗаписиЭлектроннойПочты.SMTPСервер КАК АдресСервераSMTP,
| УчетныеЗаписиЭлектроннойПочты.ПортSMTP,
| УчетныеЗаписиЭлектроннойПочты.ПортPOP3,
| УчетныеЗаписиЭлектроннойПочты.Логин КАК Пользователь,
| УчетныеЗаписиЭлектроннойПочты.Пароль,
| УчетныеЗаписиЭлектроннойПочты.ТребуетсяSMTPАутентификация КАК ПриОтправкеПисемТребуетсяАвторизация,
| УчетныеЗаписиЭлектроннойПочты.ЛогинSMTP КАК ПользовательSMTP,
| УчетныеЗаписиЭлектроннойПочты.ПарольSMTP КАК ПарольSMTP,
| УчетныеЗаписиЭлектроннойПочты.ВремяОжиданияСервера КАК Таймаут,
| УчетныеЗаписиЭлектроннойПочты.ИспользоватьЗащищенноеСоединениеДляВходящейПочты КАК ИспользоватьSSLPOP3,
| УчетныеЗаписиЭлектроннойПочты.ИспользоватьЗащищенноеСоединениеДляИсходящейПочты КАК ИспользоватьSSLSMTP,
| ЛОЖЬ КАК POP3ПередSMTP
|ИЗ
| Справочник.УчетныеЗаписиЭлектроннойПочты КАК УчетныеЗаписиЭлектроннойПочты
|ГДЕ
| УчетныеЗаписиЭлектроннойПочты.Ссылка = &Ссылка";
Запрос = Новый Запрос(ТекстЗапроса);
Запрос.УстановитьПараметр("Ссылка", УчетнаяЗапись.Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
Результат = Неопределено;
Если Выборка.Следующий() Тогда
СписокСвойствIMAP = "АдресСервераIMAP,ПортIMAP,ИспользоватьSSLIMAP,ПользовательIMAP";
СписокСвойствPOP3 = "АдресСервераPOP3,ПортPOP3,ИспользоватьSSLPOP3,Пользователь";
СписокСвойствSMTP = "АдресСервераSMTP,ПортSMTP,ИспользоватьSSLSMTP";
Результат = Новый ИнтернетПочтовыйПрофиль;
Результат.Пользователь = Выборка.Пользователь;
Результат.Пароль = Выборка.Пароль;
Результат.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;
ТребуемыеСвойства = СписокСвойствSMTP;
Если Выборка.ПриОтправкеПисемТребуетсяАвторизация И Не Выборка.POP3ПередSMTP Тогда
ТребуемыеСвойства = ТребуемыеСвойства + ",ПользовательSMTP";
КонецЕсли;
Результат.ПарольSMTP = Выборка.ПарольSMTP;
Если Выборка.POP3ПередSMTP Тогда
ТребуемыеСвойства = ТребуемыеСвойства + ",POP3ПередSMTP," + СписокСвойствPOP3;
Результат.Пароль = Выборка.Пароль;
КонецЕсли;
ТребуемыеСвойства = ТребуемыеСвойства + ",Таймаут";
ЗаполнитьЗначенияСвойств(Результат, Выборка, ТребуемыеСвойства);
Если Результат.ПользовательSMTP = "" Тогда
Результат.ПарольSMTP = "";
КонецЕсли;
КонецЕсли;
Если Результат.ПарольIMAP = "" Тогда
Результат.ПарольIMAP = Результат.ПарольSMTP;
КонецЕсли;
Возврат Результат;
Иначе
Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераPOP3 = УчетнаяЗапись.POP3Сервер;
Профиль.АдресСервераSMTP = УчетнаяЗапись.SMTPСервер;
Если УчетнаяЗапись.ВремяОжиданияСервера > 0 Тогда
Профиль.ВремяОжидания = УчетнаяЗапись.ВремяОжиданияСервера;
КонецЕсли;
Профиль.Пароль = УчетнаяЗапись.Пароль;
Профиль.Пользователь = УчетнаяЗапись.Логин;
Профиль.ПортPOP3 = УчетнаяЗапись.ПортPOP3;
Профиль.ПортSMTP = УчетнаяЗапись.ПортSMTP;
Если УчетнаяЗапись.ТребуетсяSMTPАутентификация Тогда
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;
Профиль.ПарольSMTP = УчетнаяЗапись.ПарольSMTP;
Профиль.ПользовательSMTP = УчетнаяЗапись.ЛогинSMTP;
Иначе
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.БезАутентификации;
Профиль.ПарольSMTP = "";
Профиль.ПользовательSMTP = "";
КонецЕсли;
СистемнаяИнформация = Новый СистемнаяИнформация;
Если ОбщегоНазначенияКлиентСервер.СравнитьВерсии(СистемнаяИнформация.ВерсияПриложения, "8.3.1.0") > 0 Тогда
Профиль.ИспользоватьSSLPOP3 = УчетнаяЗапись.ИспользоватьЗащищенноеСоединениеДляВходящейПочты;
Профиль.ИспользоватьSSLSMTP = УчетнаяЗапись.ИспользоватьЗащищенноеСоединениеДляИсходящейПочты;
КонецЕсли;
Возврат Профиль;
КонецЕсли;
КонецФункции
ПоказатьОписание ошибки
se_1c8zup_mail@ltcompany.com. {ОбщийМодуль.УправлениеЭлектроннойПочтой.Модуль(1426)}: Ошибка при вызове метода контекста (Послать): Почтовый ящик не доступен (SMTP error code 550 5.7.54 SMTP; Unable to relay recipient in non-accepted domain
)
По теме из базы знаний
- Массовая рассылка писем с HTML. Отправить письмо или почту через 1С с картинками, изображениями, таблицами и прочим
- Отправка электронной почты с помощью локального почтового клиента из 1С, развернутой под удаленным рабочим столом
- Как отправить ошибки из журнала регистрации на почту?
- Отправка писем на электронную почту типовой функцией 1С
- Отправка и получение почтовых сообщений
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот