Имя: Пароль:
1C
 
1C8.2 ИнтернетПочта не отправляет 2-м пользователям SQL-ная база.
,
0 GANR
 
24.06.11
16:42
ИнтернетПочта не отправляет письмо 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]";
   Сообщение.ИмяОтправителя    =    ПараметрыСеанса.ТекущийПользователь.Наименование;    
   
   ПочтовыеАдреса                =    Сообщение.Получатели;
   ПочтовыйАдрес                =    ПочтовыеАдреса.Добавить();
   ПочтовыйАдрес.Адрес            =    АдресПолучателя;    
   Сообщение.Тема                =    "Отклонение документа";
   
   ИнтернетТекстПочтовогоСообщения                = Сообщение.Тексты.Добавить();
   ИнтернетТекстПочтовогоСообщения.Текст        = ТекстСообщения;
   ИнтернетТекстПочтовогоСообщения.ТипТекста    = ТипТекстаПочтовогоСообщения.ПростойТекст;
   
   Попытка
       // Пытаемся послать письмо
       Почта.Послать(Сообщение);
   Исключение
       //Сообщить(ОписаниеОшибки());
   КонецПопытки;
   // отключение
   Почта.Отключиться();            
   
КонецПроцедуры
1 mikecool
 
24.06.11
16:44
первое что на ум приходит - сделай паузу в 1-2 секунды между отправками
2 mikecool
 
24.06.11
16:45
как получается +Code ???
3 ДенисЧ
 
24.06.11
16:45
4 mikecool
 
24.06.11
16:52
(3) спс

test

сорри за офф