Процедура ДобавитьДанные(Хранилище)
Данные = Хранилище.Получить();
КонецПроцедуры
&НаСервере
Процедура ЗагрузитьНаСервере()
// Вставить содержимое обработчика.
УправлениеЭлектроннойПочтой.ПолучениеИОтправкаЭлектронныхПисем();
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| ЭлектронноеПисьмоВходящее.Ссылка
|ИЗ
| Документ.ЭлектронноеПисьмоВходящее КАК ЭлектронноеПисьмоВходящее
|ГДЕ
| ЭлектронноеПисьмоВходящее.УчетнаяЗапись.Наименование = &УчетнаяЗапись
| И ЭлектронноеПисьмоВходящее.Тема ПОДОБНО &Тема
| И ЭлектронноеПисьмоВходящее.Дата МЕЖДУ &Дата1 И &Дата2";
Запрос.УстановитьПараметр("Тема","%"+Объект.Тема+"%");
Запрос.УстановитьПараметр("УчетнаяЗапись",Объект.ИмяУчетнойЗаписи);
Запрос.УстановитьПараметр("Дата1",КонецДня(ТекущаяДата()) - 24*3600*10);
Запрос.УстановитьПараметр("Дата2",КонецДня(ТекущаяДата()));
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
ТаблицаВложения = УправлениеЭлектроннойПочтой.ПолучитьВложенияЭлектронногоПисьма(Выборка.Ссылка, Истина);
Для Каждого Стр Из ТаблицаВложения Цикл
Если Найти(Стр.ИмяФайла,Объект.ИмяФайла) > 0 Тогда
ДобавитьДанные(Стр.Ссылка.ФайлХранилище);
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецПроцедурыВ процедуре ДобавитьДанные пробую Данные.Записать("..."), Данные - почему-то равно Неопределено, хотя размер у файла есть, и из формы его можно открыть. Если Хранилище.Записать - пишет нет метода (у Хранилища нет метода Записать)