Почтовый клиент, работа с почтой, получение писем

&НаСервере
Процедура ОбновитьНаСервере()
    ПочтаОтправителя = Константы.ПочтаОтправителя.Получить();
    ПарольПочтыОтправителя = Константы.ПарольПочтыОтправителя.Получить();
    
    Если СтрЗаканчиваетсяНа(ПочтаОтправителя, "@mail.ru") Тогда
        АдресПочтовогоСервераSMTP = "smtp.mail.ru";    
    ИначеЕсли СтрЗаканчиваетсяНа(ПочтаОтправителя, "@gmail.com") Тогда
        АдресПочтовогоСервераSMTP = "smtp.gmail.com";
    ИначеЕсли СтрЗаканчиваетсяНа(ПочтаОтправителя, "@yandex.ru") Тогда
        АдресПочтовогоСервераSMTP = "smtp.yandex.ru";  
    Иначе 
        Сообщить("На данный момент получение писем с данного почтового ящика не поддерживается.");
    КонецЕсли;
    
    Если СтрЗаканчиваетсяНа(ПочтаОтправителя, "@mail.ru") Тогда
        АдресПочтовогоСервераPOP = "pop.mail.ru";    
    ИначеЕсли СтрЗаканчиваетсяНа(ПочтаОтправителя, "@gmail.com") Тогда
        АдресПочтовогоСервераPOP = "pop.gmail.com";
    ИначеЕсли СтрЗаканчиваетсяНа(ПочтаОтправителя, "@yandex.ru") Тогда
        АдресПочтовогоСервераPOP = "pop.yandex.ru";  
    Иначе 
        Сообщить("На данный момент получение писем с данного почтового ящика не поддерживается.");
    КонецЕсли;
    
    #Область ПолучениеПисьма 
    
    Профиль = Новый ИнтернетПочтовыйПрофиль;
    Профиль.ИспользоватьSSLSMTP = Истина;
    //Профиль.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;
    //Профиль.АдресСервераSMTP = АдресПочтовогоСервераSMTP;
    //Профиль.ПортSMTP = 465; 
    //Профиль.ПарольSMTP = ПарольПочтыОтправителя;
    //Профиль.ПользовательSMTP = ПочтаОтправителя; 
    Профиль.Пользователь = ПочтаОтправителя;
    Профиль.Пароль = ПарольПочтыОтправителя;
    Профиль.ИспользоватьSSLPOP3 = Ложь;
    //Профиль.АутентификацияPOP3 = СпособPOP3Аутентификации.Обычная;
    Профиль.АдресСервераPOP3 = АдресПочтовогоСервераPOP; 
    Профиль.ПортPOP3 = 995;
        
    //ПОЧТОВОЕ СООБЩЕНИЕ
    
    Почта = Новый ИнтернетПочта();
    
    //Подключение к серверу
    Попытка
        Почта.Подключиться(Профиль);
    Исключение
        Сообщить("Ошибка при подключении к серверу: " + ОписаниеОшибки());
        Возврат;
    КонецПопытки;
    
    Заголовки = Почта.ПолучитьЗаголовки();
    
    Если Заголовки.Количество() = 0 Тогда
        Сообщить("В почтовом ящике нет входящих сообщений!");    
    КонецЕсли;
    
    Сообщения = Почта.Выбрать(Истина, Заголовки);
    
    Для каждого Сообщение Из Сообщения Цикл
        СтрокаТЧ = ВходящиеПисьма.Добавить();
        СтрокаТЧ.Дата = Сообщение.ДатаОтправления;
        СтрокаТЧ.ОтКого = Сообщение.Отправитель.Пользователь + " <" + Сообщение.Отправитель.Адрес + "> ";
        СтрокаТЧ.Тема = Сообщение.Тема;
        
        Для каждого Получатель Из Сообщение.Получатели Цикл
            КомуВходящие = КомуВходящие + Получатель.Пользователь + " <" + Получатель.Адрес + "> ";        
        КонецЦикла;
        СтрокаТЧ.Кому = КомуВходящие;
        
        Для каждого ТекстСообщения Из Сообщение.Тексты Цикл
            ТекстВходящие = ТекстВходящие + ТекстСообщения.Текст;    
        КонецЦикла;
        СтрокаТЧ.Текст = ТекстВходящие;
    КонецЦикла;
    
    Почта.Отключиться();
    
    #КонецОбласти  
    
    //Сообщить("Письмо отправлено");
КонецПроцедуры

&НаКлиенте
Процедура Обновить(Команда)
    ОбновитьНаСервере();
КонецПроцедуры