Процедура ПолучениеИнтернетПочты()
    
    //ПочтовыйАдресОбмена="******@karelgaz.ru";
    POP3Сервер="192.168.2.50";
    ПортСервераPOP3Рассылки=110;
    Пользователь="*******@mail.ru";
    Пароль="******";
    
    Профиль = новый ИнтернетПочтовыйПрофиль;
    Профиль.АдресСервераPOP3 = POP3Сервер;  
    Профиль.Пользователь = Пользователь;
    Профиль.Пароль = Пароль;
    Профиль.ПортPOP3 = ПортСервераPOP3Рассылки;
    //ПРофиль.АутентификацияPOP3 = СпособPOP3Аутентификации.Обычная;
    
    Попытка
        Предупреждение("Попытка подключения к серверу почты "+Профиль.АдресСервераPOP3);
        Состояние("Подключение к серверу "+Профиль.АдресСервераPOP3);
        Почта = Новый ИнтернетПочта;
        Почта.Подключиться(Профиль);
        
        МассивСообщений = Новый Массив;
        Предупреждение("Чтение почтовых сообщений");
        Состояние("Чтение почтовых сообщений...");
        МассивСообщений = Почта.Выбрать(Истина); // ЛОжь - письма с сервера не удаляются...
    Исключение
        Предупреждение("Ошибка подключения к серверу ","Остановить");
        Предупреждение(""+ОписаниеОшибки(),"Остановить");
        Сообщить("Ошибка подключения к серверу!");
        Сообщить(""+ОписаниеОшибки());
        Возврат;
    КонецПопытки;
    
    Если МассивСообщений.Количество() = 0 Тогда
        Предупреждение("В почтовом ящике нет сообщений. Прерываем работу.");
        Сообщить("Почтовый ящик пуст");
        ПолученныеПисьма.Очистить();
        Возврат;
    КонецЕсли;
    ОтобразитьПочтовыеПисьма(МассивСообщений);  
КонецПроцедуры

Процедура ОтобразитьПочтовыеПисьма(МассивСообщений)
    ПолученныеПисьма.Очистить();
    Если МассивСообщений.Количество() = 0 Тогда
        Возврат; // почтовых сообщений нету.
    КонецЕсли;
    
    Предупреждение("Начало отображения сообщений в обработке");
    МассивСообщенийОбмена = новый Массив;
    
    ИмяФайлаСообщения = "";
    ПолученныеПисьма.Очистить();
    Для Индекс = 0 По МассивСообщений.Количество() - 1 Цикл
        стр = ПолученныеПисьма.Добавить();
        стр.ДатаОтправления = МассивСообщений[Индекс].ДатаОтправления;
        стр.Индекс = Индекс;
        Стр.ОтКого=МассивСообщений[Индекс].Отправитель.Адрес;
        Стр.ДатаПолучения=МассивСообщений[Индекс].ДатаПолучения;
        стр.Тема = МассивСообщений[Индекс].Тема;
        Для Каждого Вложение из МассивСообщений[Индекс].Вложения Цикл
            Стр.ФайлВложения=Вложение.ИмяФайла;
            Вложение.Данные.Записать("c:\Почта"+Вложение.ИмяФайла);
        КонецЦикла;
        Для Каждого Текст из МассивСообщений[Индекс].Тексты Цикл
            Стр.ТекстПисьма=Текст.Текст;
            Текст.Данные.Записать("c:\Почта\ТекстСообщения.txt");
        КонецЦикла;
    КонецЦикла;
 
    Предупреждение("Сообщения отображены и удалены с сервера");
КонецПроцедуры

    ОчиститьСообщения();
    
    Профиль = Новый ИнтернетПочтовыйПрофиль;
    
    АдресО                       = "*********";
    Пароль                       = "*********";
    АдресСервера                 = "smtp.gmail.com";    
    Профиль.АдресСервераSMTP     = АдресСервера; 
    Профиль.ПортSMTP             = 465;
    Профиль.Пользователь         = АдресО;
    Профиль.Пароль               = Пароль;
    Профиль.АутентификацияSMTP   = СпособSMTPАутентификации.ПоУмолчанию;
    Профиль.ИспользоватьSSLSMTP  = Истина;
    Профиль.ПарольSMTP           = Пароль;
    Профиль.ПользовательSMTP     = АдресО; 
    
    Почта = Новый ИнтернетПочта;
    Попытка
        Почта.Подключиться(Профиль);
    Исключение
        Сообщить("Ошибка при подключении к серверу" + ОписаниеОшибки());
        Возврат;
    КонецПопытки;
    
    Для Каждого Стр из ТабличнаяЧасть1 Цикл
        АдресП = Стр.mail;
        Если АдресП="Нет данных" Тогда
            Продолжить;
        КонецЕсли;      
        Сообщение = Новый ИнтернетПочтовоеСообщение;
        Сообщение.Отправитель = АдресО;
        Сообщение.Получатели.Добавить(АдресП);
        Сообщение.Тема = ТемаПисьма;
        Сообщение.Тексты.Добавить(Текст,ТипТекстаПочтовогоСообщения.HTML);
        Состояние("Идет отправка посты на адрес: "+АдресП); 
        Почта.Послать(Сообщение);
        Сообщить("Почта отправлена: "+ АдресП);
    КонецЦикла;
    Почта.Отключиться();