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

&НаСервере
Процедура ОбновитьНаСервере()
	ПочтаОтправителя = Константы.ПочтаОтправителя.Получить();
	ПарольПочтыОтправителя = Константы.ПарольПочтыОтправителя.Получить();
	
	Если СтрЗаканчиваетсяНа(ПочтаОтправителя, "@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 Тогда
		Сообщить("В почтовом ящике нет входящих сообщений!");	
	КонецЕсли;
	
	Сообщения = Почта.Выбрать(Истина, Заголовки);
	
	Для каждого Сообщение Из Сообщения Цикл
		СтрокаТЧ = ВходящиеПисьма.Добавить();
		СтрокаТЧ.Дата = Сообщение.ДатаОтправления;
		СтрокаТЧ.ОтКого = Сообщение.Отправитель.Пользователь + " <" + Сообщение.Отправитель.Адрес + "> ";
		СтрокаТЧ.Тема = Сообщение.Тема;
		
		Для каждого Получатель Из Сообщение.Получатели Цикл
			КомуВходящие = КомуВходящие + Получатель.Пользователь + " <" + Получатель.Адрес + "> ";		
		КонецЦикла;
		СтрокаТЧ.Кому = КомуВходящие;
		
		Для каждого ТекстСообщения Из Сообщение.Тексты Цикл
			ТекстВходящие = ТекстВходящие + ТекстСообщения.Текст;	
		КонецЦикла;
		СтрокаТЧ.Текст = ТекстВходящие;
	КонецЦикла;
	
	Почта.Отключиться();
	
	#КонецОбласти  
	
	//Сообщить("Письмо отправлено");
КонецПроцедуры

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