Имя: Пароль:
1C
1С v8
как 1с подключиться к почте
0 ptax
 
21.06.12
13:16
всем привет. очень буду благодарна если кто инть скинет пример как 1с подключиться к почте, прочитать письма за период(параметр), считать вложения (эксель) и результатом выдать отчет статистику по вложениям
1 Alex S D
 
21.06.12
13:16
палево)
2 oleg_prg
 
21.06.12
13:19
Процедура ОсновныеДействияФормыПрочитать(Кнопка)
   // Вставить содержимое обработчика.
   Состояние("Чтение данных");
   
   Если РучнойРежим = Истина Тогда
       ПрочитатьДанные();
       Возврат;
   КонецЕсли;
   
   
   
   СостояниеПриема = "Подключение к серверу";
   Профиль = Новый ИнтернетПочтовыйПрофиль;
   Профиль.ВремяОжидания      = 20;
   Профиль.ПортPOP3           = 110;
   Профиль.АдресСервераPOP3   = "pop.mail.ru";
   Профиль.Пароль             = "123456";
   Профиль.Пользователь       = "[email protected]";
   
   Почта = Новый ИнтернетПочта;
   Почта.Подключиться(Профиль);    
   Выборка = Почта.Выбрать(Ложь);  
   Для Каждого Сообщение Из Выборка Цикл
       Для Каждого Вложение Из Сообщение.Вложения Цикл
           Если Найти(СокрЛП(Вложение.Имя),".xml")>0 Тогда
               Вложение.Данные.Записать(СокрЛП(Константы.ПутьКОтчетамPHP.Получить())+СокрЛП(Сервер.ИмяПапки)+"\XMLТочка_stat.php.xml");
               ПрочитатьДанные();  //В этой процедуре идет обработка полученного файла на диске компа
           КонецЕсли;
       КонецЦикла;
   КонецЦикла;    
КонецПроцедуры
3 ptax
 
21.06.12
13:27
(2) очень здорово)) спасибо большое
4 ptax
 
21.06.12
13:28
а как в выборке сделать отбор по периоду??
5 oleg_prg
 
21.06.12
13:30
Смотри методы Вложение.ХХХХХХХХ там есть имя файла, дата и прочее
6 oleg_prg
 
21.06.12
13:31
точно не помню, но как-то так

Если Вложение.Дата >= Дата1 И Вложение.Дата <= Дата1 Тогда

   //Делаем то что нам нада

КонецЕсли;
7 ptax
 
21.06.12
13:44
Ну понятно, в цикле... в выборке никак
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший