Работа с почтой

Функция ПочтовыйПрофиль() Экспорт 
	Профиль = Новый ИнтернетПочтовыйПрофиль;
	Профиль.Пользователь = "*******@mail.ru";
	Профиль.Пароль = "********";
	
	Профиль.ПортSMTP = 465;
	Профиль.ПортPOP3 = 995;
	
	Профиль.ИспользоватьSSLPOP3 = Истина;
	Профиль.АдресСервераPOP3 = "pop.mail.ru";
	Профиль.ТолькоЗащищеннаяАутентификацияPOP3 = истина;
	Профиль.АутентификацияPOP3 = СпособPOP3Аутентификации.Обычная;
	
	
	
	Профиль.ТолькоЗащищеннаяАутентификацияSMTP=Истина;	
	Профиль.АутентификацияSMTP  = СпособSMTPАутентификации.Login;
	Профиль.ИспользоватьSSLSMTP = Истина;
	Профиль.АдресСервераSMTP    = "smtp.mail.ru";
	Профиль.ПользовательSMTP    = "bux.mir-it";
	Профиль.ПарольSMTP          = "*********";
	
	
	Возврат  Профиль;
КонецФункции // ПочтовыйПрофиль()


Процедура ПрочиатьПочту() Экспорт
	#Если МобильноеПриложениеКлиент  Тогда
		   Тема = "mobile";
	#Иначе   
		   Тема = "server";
	#КонецЕсли
	
	Соединение = Новый ИнтернетПочта; 
	
	Соединение.Подключиться(ПочтовыйПрофиль(),ПротоколИнтернетПочты.POP3);
	
	
	
	Заголовки = Соединение.ПолучитьЗаголовки();
	
	Индекс = Заголовки.ВГраница();
	
	Сообщить(Тема);
	Пока Индекс >=0 Цикл
	
		    Если Лев(Заголовки[Индекс].Тема, 6) <> Тема Тогда
			       Заголовки.Удалить(Индекс);
			КонецЕсли;
		
	        Индекс = Индекс - 1;
	КонецЦикла;
	
	Если Заголовки.Количество() > 0 Тогда
		
		Сообщить("Письма есть");
		    Письма = Соединение.Выбрать(Истина,Заголовки);
			ИменаФайлов = Новый Массив;
			
			Для каждого Письмо Из Письма Цикл
				Для каждого Вложение Из Письмо.Вложения Цикл
					ИмяФайла = ПолучитьИмяВременногоФайла("xml");
				    Вложение.Данные.Записать(ИмяФайла);
					сообщить(ИмяФайла);
					ИменаФайлов.Добавить(ИмяФайла);
				  КонецЦикла;
			КонецЦикла;
		ВыгрузкаДанных.ЗаписатьИнформациюИзПисем(ИменаФайлов);
	КонецЕсли;
	
    Соединение.Отключиться();
	
КонецПроцедуры