ИнтернетПочта не отправляет письмо 2-м из 40 пользователям SQL-ная база. Код выполняется на сервере без контекста. В локальной базе этот-же код работает с этими-же пользователями. В чем тут может быть дело?
Процедура ОтправитьПисьмоПоEMail(Пользователь, ТекстСообщения) Экспорт
АдресПолучателя = ?(Пользователь.КонтактнаяИнформация.Количество() <> 0, Пользователь.КонтактнаяИнформация[0].АдресЭП, "");
Если СокрЛП(АдресПолучателя) = "" тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Не удалось отправить пользователю уведомление о неправльном оформлении документа";
Сообщение.Сообщить();
Возврат;
КонецЕсли;
Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераSMTP = "msg001.hhh.ru";
Профиль.АдресСервераPOP3 = "msg001.hhh.ru";
Профиль.Пароль ="password"; // Пароль к почтовому ящику
Профиль.ПарольSMTP ="password"; // Пароль пользователя для SMTP сервера
Профиль.Пользователь = "
[email protected]"; // Логин пользователя
Профиль.ПользовательSMTP = "
[email protected]"; // Логин пользователя для SMTP сервера
Почта = Новый ИнтернетПочта;
Попытка
Почта.Подключиться(Профиль);
Исключение
//Сообщить(ОписаниеОшибки());
КонецПопытки;
Сообщение = Новый ИнтернетПочтовоеСообщение;
Сообщение.Отправитель = "
[email protected]";
Сообщение.ИмяОтправителя = ПараметрыСеанса.ТекущийПользователь.Наименование;
ПочтовыеАдреса = Сообщение.Получатели;
ПочтовыйАдрес = ПочтовыеАдреса.Добавить();
ПочтовыйАдрес.Адрес = АдресПолучателя;
Сообщение.Тема = "Отклонение документа";
ИнтернетТекстПочтовогоСообщения = Сообщение.Тексты.Добавить();
ИнтернетТекстПочтовогоСообщения.Текст = ТекстСообщения;
ИнтернетТекстПочтовогоСообщения.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;
Попытка
// Пытаемся послать письмо
Почта.Послать(Сообщение);
Исключение
//Сообщить(ОписаниеОшибки());
КонецПопытки;
// отключение
Почта.Отключиться();
КонецПроцедуры