пятница, 19 сентября 2014 г.

Отправка сообщений на эл адрес из 1с 8.2

Внимание!  Письмо "падает" в нежелательную почту!

//&НаКлиенте - если управляемые формы.
//Сз - список значений с текстами.
Процедура Отослать(Сз)           
               
    ЭлАдресОтправителя = "admin@mmm.ru";
   
    Профиль                  = Новый ИнтернетПочтовыйПрофиль;               
    Профиль.POP3ПередSMTP     = Ложь;
    Профиль.АдресСервераSMTP = "192.168.50.234";
    Профиль.ПортSMTP         = 25;
   

    ИнтернетПочта = Новый ИнтернетПочта;
    Попытка
        ИнтернетПочта.Подключиться(Профиль);
    Исключение
        Сообщить(ОписаниеОшибки());               
    КонецПопытки;
   
    Т = "";
    Для каждого стр Из сз Цикл
        Т=Т+стр.Значение+Символы.ПС;
    КонецЦикла;
   
    Сообщ = Новый ИнтернетПочтовоеСообщение;
    Сообщ.Кодировка="windows-1251";
    Сообщ.Тексты.Добавить("Ошибки загрузки реализаций и оплат от "+Формат(ТекущаяДата(),"ДФ=dd.MM.yyyy")+Символы.ПС+Т);
       
    Сообщ.Получатели.Добавить(ЭлАдресОтправителя);   
    //Сообщ.Получатели.Добавить("nnn@mmm.ru");
   
    Сообщ.ИмяОтправителя = "Система отправки 1С";
    Сообщ.Отправитель = ЭлАдресОтправителя;
    Сообщ.Тема = " Письмо от "+Формат(ТекущаяДата(),"ДФ=dd.MM.yyyy");
   
    //Сообщ.Вложения.Добавить(Новый ДвоичныеДанные(Файл),Вид+" Письмо от "+Формат(НаДату,"ДФ=ddMMyyyy")+".xls");
   
    Попытка
        ИнтернетПочта.Послать(Сообщ);
    Исключение
        Сообщить(строка(ОписаниеОшибки()));
    КонецПопытки;
    ИнтернетПочта.Отключиться();   
КонецПроцедуры