|
как 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";
Профиль.Пользователь = "mymail@mail.ru";
Почта = Новый ИнтернетПочта;
Почта.Подключиться(Профиль);
Выборка = Почта.Выбрать(Ложь);
Для Каждого Сообщение Из Выборка Цикл
Для Каждого Вложение Из Сообщение.Вложения Цикл
Если Найти(СокрЛП(Вложение.Имя),".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
|
Ну понятно, в цикле... в выборке никак
|
|