Test

Процедура OK(Кнопка)

    Для Каждого Клиент Из Справочники.Клиенты Цикл
        Попытка

            Если МетаданныеВыбор = Неопределено Тогда
                ВызватьИсключение("Не выбраны метаданные регламентного задания.");
            КонецЕсли;

            Если РегламентноеЗадание = Неопределено Тогда
                РегламентноеЗадание = РегламентныеЗадания.СоздатьРегламентноеЗадание(МетаданныеВыбор);
            КонецЕсли;

            РегламентноеЗадание.Наименование = Наименование;
            РегламентноеЗадание.Ключ = Ключ;
            РегламентноеЗадание.Использование = Использование;
            РегламентноеЗадание.ИмяПользователя = Клиент;
            РегламентноеЗадание.КоличествоПовторовПриАварийномЗавершении = КоличествоПовторовПриАварийномЗавершении;
            РегламентноеЗадание.ИнтервалПовтораПриАварийномЗавершении = ИнтервалПовтораПриАварийномЗавершении;
            РегламентноеЗадание.Расписание = Расписание;

            РегламентноеЗадание.Записать();

            Закрыть(Истина);

        Исключение

            ПоказатьИнформациюОбОшибке(ИнформацияОбОшибке());

        КонецПопытки;
    КонецЦикла;
КонецПроцедуры


Процедура ОтправкаПисьма(Получатель)
    Профиль = Новый ИнтернетПочтовыйПрофиль;
    Профиль.АдресСервераSMTP = "АдресСервераSMTP";
    Профиль.ПользовательSMTP = "ПользовательSMTP";
    Профиль.ПарольSMTP = "Пароль";
    Профиль.ИспользоватьSSLSMTP = Истина;
    Профиль.ПортSMTP = "Порт";
    Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;

    Письмо = Новый ИнтернетПочтовоеСообщение;
    Текст = Письмо.Тексты.Добавить("Тело письма");
    Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;
    Письмо.Тема = "Тема письма";
    Письмо.Отправитель = "Адрес отправителя";
    Письмо.ИмяОтправителя = "Имя отправителя";
    Письмо.Получатели.Добавить(Получатель.ЭлектронныйАдрес);
    Письмо.Вложения.Добавить(Новый ДвоичныеДанные(ПолучитьПечатнуюФорму(Получатель)),"имя файла");

    Почта = Новый ИнтернетПочта;
    Попытка
       Почта.Подключиться(Профиль);
       Сообщить("Подключено");
    Исключение
       Сообщить("Не удалось подключиться к серверу");
       Сообщить(ОписаниеОшибки());
    КонецПопытки;
    Попытка
       Почта.Послать(Письмо);
       Сообщить("Письмо отправлено");
    Исключение
       Сообщить("Не удалось отправить письмо");
       Сообщить(ОписаниеОшибки());
    КонецПопытки;

    Почта.Отключиться();
    Сообщить("Соединение завершено");
КонецПроцедуры


Функция ПолучитьПечатнуюФорму(Клиент)