Здравствуйте! Возникает ошибка после отправки 11 писем. код отправки
АдресСервера = Константы.АдресПочтовогоСервераОбмена.Получить();
ПортSMTP = Константы.ПортSMTPПочтовогоСервераОбмена.Получить();
ТекущУзел = ПланыОбмена.РегиональнаяСтатистика.ЭтотУзел();
Пользователь = ТекущУзел.ПочтовыйЯщик;
Пароль = ТекущУзел.ПарольКПочте;
Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераSMTP = "mail.***.com";
Профиль.ПортSMTP = ПортSMTP;
Профиль.Пользователь = Пользователь;
Профиль.Пароль = Пароль;
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
Профиль.ПарольSMTP = Пароль;
Профиль.ПользовательSMTP = Пользователь;
Попытка
Почта.Подключиться(Профиль);
Пока ВыборкаОфис.Следующий() Цикл
ПользовательОфиса=ВыборкаОфис.ПочтаОфиса;
ВыборкаДетальныеЗаписи = ВыборкаОфис.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
//Формируем сообщение
Сообщение = Новый ИнтернетПочтовоеСообщение;
Сообщение.Тема = "Данные по договору №: "+ВыборкаДетальныеЗаписи.НомерДоговора+" о покупке мебели в фирме";
Сообщение.Отправитель.Адрес = ПользовательОфиса;
Сообщение.Отправитель.ОтображаемоеИмя = "Имя"; Сообщение.Получатели.Добавить("
[email protected]"); Сообщение.Тексты.Добавить(ТекстПисьмаИтоговый,ТипТекстаПочтовогоСообщения.HTML);
Если НайденныеСтроки.Количество()>0 Тогда Данные=ПолучитьИзВременногоХранилища(НайденныеСтроки[0].ИмяФайла);Сообщение.Вложения.Добавить(Данные,"Счет покупателя.pdf"); КонецЕсли;
Попытка
Почта.Послать(Сообщение);
Исключение
Сообщ = Новый СообщениеПользователю;
Сообщ.Текст = " - Ошибка при отправке письма по договору: "+ВыборкаДетальныеЗаписи.Договор;
Сообщ.Сообщить();
Сообщ.Текст = ОписаниеОшибки(); Сообщ.Сообщить();
КонецПопытки;
КонецЦикла;
КонецЦикла;
Исключение
Сообщ = Новый СообщениеПользователю;
Сообщ.Текст = " - Ошибка при подключении к почте: "+ВыборкаОфис.Почтаофиса;
Сообщ.Сообщить();
Сообщ.Текст = ОписаниеОшибки();
Сообщ.Сообщить();
КонецПопытки;
Почта.Отключиться();
Если кто сталкивался, подскажите пожалуйста. Заранее спасибо.