Внимание! Письмо "падает" в нежелательную почту!
//&НаКлиенте - если управляемые формы.
//Сз - список значений с текстами.
Процедура Отослать(Сз)
ЭлАдресОтправителя = "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");
Попытка
ИнтернетПочта.Послать(Сообщ);
Исключение
Сообщить(строка(ОписаниеОшибки()));
КонецПопытки;
ИнтернетПочта.Отключиться();
КонецПроцедуры
//&НаКлиенте - если управляемые формы.
//Сз - список значений с текстами.
Процедура Отослать(Сз)
ЭлАдресОтправителя = "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");
Попытка
ИнтернетПочта.Послать(Сообщ);
Исключение
Сообщить(строка(ОписаниеОшибки()));
КонецПопытки;
ИнтернетПочта.Отключиться();
КонецПроцедуры