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