v8.2 УП:

 Профиль = Новый ИнтернетПочтовыйПрофиль;

    

    //Пропишем параметры соединения

    //ip адрес или имя SMTP сервера

    Профиль.АдресСервераSMTP = "192.168.2.50"; 

    

    //Порт SMTP сервера

    Профиль.ПортSMTP = 587;

    

    //Имя пользователя почтового ящика

    Профиль.Пользователь = "1234@mail.ru";

    

    //Пароль доступа к почтовому ящику

    Профиль.Пароль = "buh100_TA";

    

    //При необходимости добавляем аутентификацию

    Профиль.АутентификацияSMTP     = СпособSMTPАутентификации.Login;

    Профиль.ПарольSMTP           = "buh100_TA";

    Профиль.ПользовательSMTP     = "1234@mail.ru"; 

    

    // Создаем объект для работы с почтой

    Почта = Новый ИнтернетПочта;

    

    //Выполняем подключение, согласно указанный параметров

    Попытка

        Почта.Подключиться(Профиль);

    Исключение

        //При подключении возникла ошибка, сообщим

        Сообщить("Ошибка при подключении к серверу" + ОписаниеОшибки());

        Возврат;

    КонецПопытки;

    

    //Создаем новое письмо (сообщение)

    

    СоответствиеФайловАрхивам = Новый Соответствие;

    СоответствиеФайловАрхивам.Вставить("ptz.zip", Новый Структура("Архив, Отправитель","sberbank_ptz.zip", "78978@mail.ru"));

    СоответствиеФайловАрхивам.Вставить("ptz.zip", Новый Структура("Архив, Отправитель","sberbank_ptz.zip", "5675@mail.ru"));

    СоответствиеФайловАрхивам.Вставить("lah.zip", Новый Структура("Архив, Отправитель","sberbank_lah.zip", "234@mail.ru"));

 

    МассивФайлов = НайтиФайлы(Файл, "*.zip");

    

    Для каждого ТекущийФайл Из МассивФайлов Цикл

        Сообщение = Новый ИнтернетПочтовоеСообщение;

        ПолноеИмяФайл = СтрЗаменить(ТекущийФайл.Имя, "_",Символы.ПС);

        ПрефиксФайла = СтрПолучитьСтроку(ПолноеИмяФайл, 2);

        ПрефиксФайла = НРег(ПрефиксФайла);

        

        СтруктураАрхива = СоответствиеФайловАрхивам[ПрефиксФайла];

        Если СтруктураАрхива <> Неопределено Тогда

            

            ФайлВложения=СтруктураАрхива.Архив;

            АдресПолучателя=СтруктураАрхива.Отправитель;

            Сообщение.Получатели.Добавить(АдресПолучателя);

            

        КонецЕсли; 

 

        Сообщение.Вложения.Добавить(Файл + ?(Прав(Файл,1)="","","") + ФайлВложения);

        Сообщение.Тема = "Реестры" + " " + ТекущийФайл.Имя;

        Сообщение.Отправитель = "1234@mail.ru";

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

        Сообщить(ТекущийФайл.Имя + " " + "успешно отправлено на адрес:" + " " + СтруктураАрхива.Отправитель);

    

    КонецЦикла;

    

    Почта.Отключиться();