Имя: Пароль:
1C
1С v8
БП 3.0: Отправка почты - ошибка времени выполнения (Послать())
0 dft2014
 
11.07.14
10:26
Пытаюсь отправить почту по регл.заданию. Задание выполняется, но почта не отправляется. Если смотреть в отладчике, то доходит до строчки:

Подключение.Послать(Сообщение);

прерывается и выдает ошибку времени выполнения на этой строчки. Подскажите, как это лечить? Вот код:

Функция ПередатьФайлы(МассивДляПередачи,МассивНеПереданных,МассивАвансовыхСФ,Лог) Экспорт
Для Каждого Строка Из МассивДляПередачи Цикл
    
    Если Строка.Email = Истина Тогда
        
        СистемнаяУчетнаяЗапись = РаботаСПочтовымиСообщениями.ПолучитьСистемнуюУчетнуюЗапись();
        Если НЕ РаботаСПочтовымиСообщениями.ПроверитьСистемнаяУчетнаяЗаписьДоступна() Тогда
        КонецЕсли;
        
        Профиль = Новый ИнтернетПочтовыйПрофиль;
        Профиль.АдресСервераSMTP = СистемнаяУчетнаяЗапись.СерверИсходящейПочтыSMTP;
        Профиль.ПортSMTP          = СистемнаяУчетнаяЗапись.ПортSMTP;
        Подключение = Новый ИнтернетПочта;
        Подключение.Подключиться(Профиль);
        
        Сообщение = Новый ИнтернетПочтовоеСообщение;
        Текст = Сообщение.Тексты.Добавить(ТестПисьмаHTML);
        Текст.ТипТекста = ТипТекстаПочтовогоСообщения.HTML;
        
        Сообщение.ИмяОтправителя = СистемнаяУчетнаяЗапись.ИмяПользователя;
        Сообщение.Отправитель     = СистемнаяУчетнаяЗапись.АдресЭлектроннойПочты;
        Сообщение.Получатели.Добавить("[email protected]"); // здесь для отладки указываю адрес своей почты
        Сообщение.Вложения.Добавить(Новый ДвоичныеДанные(СтруктураАдресРТУ.Адрес),СтруктураАдресРТУ.ИмяФайла);
        Сообщение.Вложения.Добавить(Новый ДвоичныеДанные(СтруктураАдресСФ.Адрес),СтруктураАдресСФ.ИмяФайла);
        
        Попытка
            Подключение.Послать(Сообщение);   //вот на этой строчки выдает ошибку
        Исключение
        КонецПопытки;
        Подключение.Отключиться();
    КонецЕсли;
    
КонецЦикла;
КонецФункции;
1 manyak
 
11.07.14
10:34
может вложение большое очень по весу получается?
попробуй задать чтоб одно было вложение и малое по весу
2 manyak
 
11.07.14
10:38
проверь ручками отправку почты - отравит или нет

    Профиль = новый ИнтернетПочтовыйПрофиль;
    Профиль.АдресСервераSMTP = "";
    Профиль.ПользовательSMTP = "";
    Профиль.ПарольSMTP = "";
    ПРофиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
    Сообщение = Новый ИнтернетПочтовоеСообщение;
    Сообщение.Отправитель = "";
    Сообщение.Тема = "тема";
    Сообщение.Получатели.Добавить("");
    Сообщение.Тексты.Добавить("тело письма");
    Сообщение.Вложения.Добавить(Имяфайла);
    
    Почта = Новый ИнтернетПочта;
    Попытка
        Состояние("Отправка почтового сообщения...");
        Почта.Подключиться(Профиль);
        Почта.Послать(Сообщение);
        сообщить("Сообщения успешно отправлены!");
    Исключение
        Сообщить("Ошибка соединения с сервером.",СтатусСообщения.ОченьВажное);
        Сообщить(""+ОписаниеОшибки());
    КонецПопытки;