//===================================================================
//Процедура Приёма писем с ящика
//===================================================================
Процедура ЗакачкаПисем()
	Сообщить("Сработал Таймер");
	спрЗаявки = СоздатьОбъект ("Справочник.Заявки");
	Если ЗагрузитьВнешнююКомпоненту("ROM-Mail.dll")=0 Тогда
		Статус ="Не загружен ROM-Mail.dll";
	Иначе
		Попытка
			ВК = СоздатьОбъект("AddIn.AddInMail");
		Исключение
			Сообщить("Ошибка инициализации E-Mail");
		КонецПопытки;   
		ВК.СерверПриема = "сервер приема"; 
		ВК.ПортПриема = "110";
		ВК.Логин ="Логин";
		ВК.Пароль = "Пароль";
		ВК.ОставлятьНаСервере = 0;
		ВК.ПоказыватьПредупреждения = 0;
		Состояние("Подключаемся к серверу для приёма ..."+ТекущееВремя());
		Если ВК.Подключиться("Прием")=0 Тогда
			Предупреждение("Не удалось подключиться к серверу!");
			Возврат;
		КонецЕсли;
		Состояние("На сервере найденно "+ВК.КоличествоСообщений()+" заявок(а).");
		Для Индекс=1 По ВК.КоличествоСообщений() Цикл
			ВК.ПолучитьСообщение(индекс);  
			Отправитель = ВК.ИмяОтправителя;
			Адрес = ВК.АдресОтправителя;
			Тема = ВК.Тема;
			Тело = СокрЛП(ВК.Тело);
			ДатаП = ВК.ДатаОтправки;
			Размер = ВК.Размер;
			Сообщить("Пришло письмо:");
			Сообщить("----------------------------------------");
			Сообщить("От: "+Адрес);
			Сообщить("Тема: "+Тема);  
			Сообщить("Тело: "+Тело);     // проба тела сообщения
			Сообщить("Дата: "+ДатаП);
			Сообщить("Размер: "+Окр((Размер/1024),2,1)+" кб");
			Сообщить("----------------------------------------"); 
			
			спрЗаявки.Новый();
			спрЗаявки.Емайл = ВК.АдресОтправителя;    
			спрЗаявки.ИмяОтправителя = ВК.ИмяОтправителя;   
			спрЗаявки.ТемаЗаявки =ВК.Тема;
			спрЗаявки.Заявка = СокрЛП(ВК.Тело);
			спрЗаявки.Дата = ВК.ДатаОтправки;
			спрЗаявки.Записать();			
		КонецЦикла;     
	КонецЕсли;  
КонецПроцедуры



Процедура ПриНачалеРаботыСистемы() 
	ЗакачкаПисем()	
КонецПроцедуры // ПриНачалеРаботыСистемы()

ОбработкаОжидания("ЗакачкаПисем",1);