Имя: Пароль:
1C
1С v8
Получение почты - Сохранение вложений из письма
0 Pyrpyr4ik
 
28.01.13
07:47
После подключения, читаю новые сообщения на почте..
Когда пытаюсь записать вложение из письма - ругается на каталог о_О

Для каждого Вложение из Письмо.Вложения Цикл
                   
   НовоеИмяФайлаВКаталоге = Формат(ТекущаяДата(),"ДФ=ддММгггг_ччммсс_")+Вложение.Name; //Полное имя    
   Вложение.Данные.Записать("O:\Каталог\"+НовоеИмяФайлаВКаталоге);
   
КонецЦикла;


Каталог не обнаружен 'O:\Каталог\28012013_073312_test.docx'

Пытался записать файл в темп и потом скопировать его. В темп вроде пишет а копировать не хочет :(
1 Живой Ископаемый
 
28.01.13
07:50
спасибо за интересные новости в понедельник утром.
2 Бешеная Нога
 
28.01.13
07:51
имхо он у тебя не может обнаружить каталог "O:\Каталог\". КЭП
3 Pyrpyr4ik
 
28.01.13
07:53
(2) До этого проверяю на наличие каталога, все ок.
4 Бешеная Нога
 
28.01.13
07:54
каким образом
5 Pyrpyr4ik
 
28.01.13
07:55
(4) Существует(); Возвращаемое значение: Тип: Булево.
6 Бешеная Нога
 
28.01.13
07:56
покажи код в контексе сабжа
7 Pyrpyr4ik
 
28.01.13
08:00
(6)
{Обработка.ПрочитатьПочту.Форма.Форма.Форма(70)}: Ошибка при вызове метода контекста (Записать)
   Вложение.Данные.Записать("O:\Каталог\"+НовоеИмяФайлаВКаталоге);    
по причине:
Каталог не обнаружен 'O:\Каталог\28012013_080023_test.docx'
8 manyak
 
28.01.13
08:02
мож "О" у тебя в коде на русском прописана?
9 Бешеная Нога
 
28.01.13
08:03
покажи весь код. где проверка и где сохранение.
10 Живой Ископаемый
 
28.01.13
08:04
а что вы все тут решаете? как нужно чтобы работало?
11 Бешеная Нога
 
28.01.13
08:04
1. проверить что проверка каталога и сохранение происходит в одном месте: либо на клиенте, либо на сервере.
2. сделать переменную Каталог = "O:\Каталог\". И эту переменную использовать для проверки существования и для указания пути сохранения
12 Pyrpyr4ik
 
28.01.13
08:08
(8) Копировал с проводника

(9)

Если ФайлСуществует() Тогда
Для каждого Вложение из Письмо.Вложения Цикл
             
   НовоеИмяФайлаВКаталоге = Формат(ТекущаяДата(),"ДФ=ддММгггг_ччммсс_")+Вложение.Name; //Полное имя    

   Вложение.Данные.Записать("O:\Каталог\"+НовоеИмяФайлаВКаталоге);
   
КонецЦикла;
КонецЕсли;


&НаСервере
Функция ФайлСуществует() Экспорт
   
   Файл = Новый Файл("O:\Каталог файлов заявок в IT\test.txt");
   Возврат Файл.Существует();
   
КонецФункции
13 Pyrpyr4ik
 
28.01.13
08:09
Опечатался... каталог везде "Каталог файлов заявок в IT"
14 Pyrpyr4ik
 
28.01.13
08:10
Сейчас попробовал сохранять на жеском своем, а не в сети.. также
15 Живой Ископаемый
 
28.01.13
08:12
то есть в каталог в котором все буквы латинские таки пишет?  вне зависимости от того локальный диск или сетевой
16 Бешеная Нога
 
28.01.13
08:13
Каталог = "O:\Каталог файлов заявок в IT\";
Если ФайлСуществует(Каталог) Тогда
Для каждого Вложение из Письмо.Вложения Цикл
             
   НовоеИмяФайлаВКаталоге = Формат(ТекущаяДата(),"ДФ=ддММгггг_ччммсс_")+Вложение.Name; //Полное имя    


   Вложение.Данные.Записать(Каталог+НовоеИмяФайлаВКаталоге);
   
КонецЦикла;
КонецЕсли;


&НаСервере
Функция ФайлСуществует(Каталог) Экспорт
   
   Файл = Новый Файл(Каталог);
   Возврат Файл.Существует();
   
КонецФункции
17 Pyrpyr4ik
 
28.01.13
08:14
(15) Получается записать файл из вложений только с помощью КаталогВременныхФайлов()
18 Бешеная Нога
 
28.01.13
08:14
и если не прокатит - возможно у учетки 1с нет прав на запись в эту папку
19 manyak
 
28.01.13
08:15
с првами что то имхо
20 Pyrpyr4ik
 
28.01.13
08:18
Спасибо всем.. пойду с правами заворачиваться  :)
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн