|
как 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
|
Ну понятно, в цикле... в выборке никак
|
| Форум | Правила | Описание | Секции | Поиск |