oOutlook =  Новый COMObject("Outlook.Application");
oNamespace = oOutlook.GetNamespace("MAPI");
Уровень =  0 ;
DoFolder(oNamespace,Уровень+ 1 ); 
...
Процедура DoFolder(Знач oFolder,Уровень)

 //oChildFolder =  Новый COMObject("Outlook.MAPIFolder");


 Для Каждого oChildFolder Из oFolder.Folders Цикл
	 Если  СокрЛП(oChildFolder.Name) = "Входящие" Тогда
		 
		 Для Каждого Items ИЗ oChildFolder.Items Цикл
			 Если СокрЛП(Items.SenderEmailAddress) = "svetik@semitcvetik.ru" И  Items.UnRead =  1  Тогда	 

 Сообщить("Отправитель "+Items.SenderEmailAddress+" Получатель "+Items.To+" тема "+Items.Subject+" Items.Sent " +Items.Sent+" Items.SentOn "+Items.SentOn);	 
			 КонецЕсли;
			 Прервать;
			 ОбработкаПрерыванияПользователя();	 
		 КонецЦикла;
		 
		 Прервать;
	 КонецЕсли;	 
//Сообщить( oChildFolder.Name + " уровень "+Уровень);

DoFolder (oChildFolder,Уровень+ 1 ) 
КонецЦикла;

КонецПроцедуры

Для Каждого oChildFolder Из oFolder.Folders Цикл
	 Если  СокрЛП(oChildFolder.Name) = "Входящие" Тогда
		 Айтемс = oChildFolder.Items;
		 Айтемс.Sort("[UnRead]",true);// вот здесь по ходу дела не сортирует как надо
		  Сч =  0 ;

		 Для Каждого Сообщение Из Айтемс  Цикл
			 Если  Сообщение.UnRead = false Тогда
				 Прервать;
			 КонецЕсли;	
			 Сч = Сч +  1 ;
		 КонецЦикла;	 
		 
		 
		 //НепрочитанныеСообщения = Айтемс.Find("[UnRead]=true");
		 //Пока Айтемс.FindNext() <> Null Цикл
		 //КонецЦикла;
		 //
				 Сообщить(Сч);
		 //Для Каждого Items ИЗ oChildFolder.Items Цикл
		 //	Если СокрЛП(Items.SenderEmailAddress) = "svetik@kr.avtomir.ru" Тогда	 
		 //   	 Сообщить("Отправитель "+Items.SenderEmailAddress+" Получатель "+Items.To+" тема "+Items.Subject+" Items.Sent " +Items.Sent+" Items.SentOn "+Items.SentOn);	 
		 //	КонецЕсли;
		 //	Прервать;
		 //	ОбработкаПрерыванияПользователя();	 
		 //КонецЦикла;
		 
		 Прервать;
	 КонецЕсли;