Отправить сообщению в почту

&НаСервере
Процедура ОтправитьНаПочту() 
	с = 0;
	щ = 1;
	Для каждого рр Из РаботникиТб Цикл
		//				Получатель Тема          Текст       	вложения
		//ОтправитьПисьмо(рр.майл,   "PaySlip",   рр.Работник,	рр.путь);
		ЗадержкаВСекундах = сек;
		НачВремя = ТекущаяДата();
		КонВремя = ТекущаяДата();
		Пока (КонВремя - НачВремя) < ЗадержкаВСекундах Цикл
			КонВремя = ТекущаяДата();
		КонецЦикла;		

		с = с + (100 / РаботникиТб.Количество());
		ТекстСообщения = "Работник: " + рр.Работник + ".";
		Пояснение = "Сейчас: " + щ + ". Всего: " + РаботникиТб.Количество(); 
		Картинка = БиблиотекаКартинок.ОтправитьЭлектронноеПисьмо;
		Состояние(ТекстСообщения, с, Пояснение,  Картинка); 

		Делопроизводство.ОтправитьПисьмо(рр.майл,   "PaySlip",   рр.Работник,	рр.путь,УникальныйИдентификатор);
		щ = щ + 1;
	КонецЦикла; 
КонецПроцедуры