Имя: Пароль:
JOB
 
Забор файлов по электронной почте из 1С
0 ProProg
 
30.11.18
15:56
Есть справочник контрагенты, вбиты адреса.
Есть почта.

1) проверять почту с этими адресами
2) файлы - вложения закидывать каждый в отдельную папку

времени нет ковырятся, заплачу за реализацию
1 ProProg
 
30.11.18
15:56
должно выполнятся естественно фоновым заданием.
2 Aleksey
 
30.11.18
15:59
А 500 000 за выполнения потянешь? Плюс 20% за срочность
3 ProProg
 
30.11.18
16:00
(2) за 500 000 я на Мальдивы с телкой сиськами 5 размера поеду.
4 МихаилМ
 
30.11.18
16:07
модераторы, перенесите тему в раздел "Работа".
5 Fragster
 
гуру
30.11.18
16:08
согласовано?
6 Aleksey
 
30.11.18
16:09
(3) а зачем мне нищеброды?
7 andreymongol82
 
30.11.18
16:14
(3) Согласен за 250 съездить на майорку с телкой с сиськами 4-го размера
8 ProProg
 
30.11.18
16:16
(4) зачем? если хочешь можешь и бесплатно написать и сюда опубликовать. Кому то пригодится!
9 Aleksey
 
30.11.18
16:20
(8)  в разных типовых разная логика работы с почтой. Что работает в унф не работает в бп. Я уж молчу про то что к разным ящикам по разному подключается. Ибо к Gmail вряд ли по pop 3 подключишься. Так что кому эта подделка нужна?
10 Greeen
 
30.11.18
16:21
демпингую, за 100 тр с 1 размером..
11 ProProg
 
30.11.18
16:28
с вашим флудом уже быстрее самому написать...
12 ProProg
 
30.11.18
16:36
Дарю миру
13 ProProg
 
30.11.18
16:37
Профиль = Новый ИнтернетПочтовыйПрофиль;
        Профиль.АдресСервераSMTP = Объект.УчетнаяЗапись.СерверИсходящейПочты;
        Профиль.АдресСервераPOP3 = Объект.УчетнаяЗапись.СерверВходящейПочты;
        Профиль.ПортSMTP = Объект.УчетнаяЗапись.ПортСервераИсходящейПочты;
        Профиль.ПортPOP3 = Объект.УчетнаяЗапись.ПортСервераВходящейПочты;
        Профиль.АутентификацияSMTP = Объект.УчетнаяЗапись.СпособSMTPАутентификации;
        ПРофиль.АутентификацияPOP3 = Объект.УчетнаяЗапись.СпособPOP3Аутентификации;
        Профиль.Пользователь = Объект.УчетнаяЗапись.ПользовательSMTP;
        Пароли = ОбщегоНазначения.ПрочитатьДанныеИзБезопасногоХранилища(Объект.УчетнаяЗапись, "Пароль, ПарольSMTP");
        Профиль.Пароль = Пароли.Пароль;
        Профиль.ПарольSMTP = Пароли.ПарольSMTP;
        
        Почта = Новый ИнтернетПочта;
        Почта.Подключиться(Профиль, "");
        
        МассивСообщений = Почта.Выбрать(Ложь);    
        Для Каждого Сообщение из МассивСообщений Цикл
            ПараметрыОтбора = Новый Структура;
            ПараметрыОтбора.Вставить("СообщениеОтправитель", Сообщение.Отправитель);
            НайденыСтроки = Объект.ТаблицаПартнеров.НайтиСтроки(ПараметрыОтбора);
            
            Для Каждого ВыборкаПартнер Из НайденыСтроки Цикл
                КаталогДляСохранения = ВыборкаПартнер.КаталогНаЛокальномДиске;
                Для Каждого Вложение из Сообщение.Вложения Цикл
                    //Сообщить(Вложение.Имя);  
                    
                    ПутьДоФайла = КаталогДляСохранения+""+Вложение.Имя;
                    Вложение.Данные.Записать(ПутьДоФайла);
                КонецЦикла;
                
            КонецЦикла;
        КонецЦикла;
        
        Почта.Отключиться();
14 ProProg
 
30.11.18
16:45
Так как никто не сделал, я никому не заплатил, написал сам и выложил.

Все кто прочитает, может пожертвовать лишние 100 рублей вот этому человеку

OFF: Нужна помощь ребенку. Осталось собрать 194000 руб
15 Aleksey
 
30.11.18
19:42
(14) а сам что? Ты же был готов заплатить за код. Сам написал, вот себе и заплати, а потом полученные деньги перечисли.
16 ProProg
 
02.12.18
14:52
Немного переписал код. Тестирую. Что то какая то полная шляпа.
Например я отправил на тест себе письма с вложениями. Проверяю почту - с выдачей сообщений. какая то туфта.
17 ProProg
 
02.12.18
14:52
Вот например код

ПараметрыОтбора = Новый Структура;
        ПараметрыОтбора.Вставить("Новые", Истина);
        //ПараметрыОтбора.Вставить("Прочитанные", Ложь);
        Заголовки = Соединение.ПолучитьЗаголовки(ПараметрыОтбора);
        Если Заголовки.Количество() = 0 Тогда
            Сообщить("На сервере нет сообщений!");
            Возврат;
        КонецЕсли;
        
        МассивСообщений = Соединение.Выбрать(Ложь,Заголовки,Истина);    
        Для Каждого Сообщение из МассивСообщений Цикл
            Сообщить(""+Сообщение.Отправитель.Адрес+"   "+Сообщение.Тема+"    "+Сообщение.ДатаОтправления);
18 ProProg
 
02.12.18
14:54
Тут с чтением заголовков и отборов.
Смотрю сообщения и тп. фактически в ящике 1 письмо новое.
А выдает 670 сообщений с разными адресами и темами. от 14 года по текущий.

Причем неясно почему только 670, если уже гребет все то у меня там тысячи. Начинаю проверять некоторые, вообще фиг поймешь по какому критерию оно выбрало.
19 ДенисЧ
 
02.12.18
14:55
@с выдачей сообщений. какая то туфта.@

Гениалное по соедержанию сообщение.... За Включение моего телепата я потребую 50000 рублей
20 ProProg
 
02.12.18
14:58
Отборы пробовал разные. один фиг читает одно и тоже)
21 ProProg
 
02.12.18
14:58
(19) а ничего что ниже все пояснения?
22 ДенисЧ
 
02.12.18
15:01
(21) ТАк и и ви не заплатили пока ещё за поговорить.... Ни тестового стенда, нит даннных....
23 ProProg
 
02.12.18
15:04
Убрал отборы и предварительное получение заголовков) в результате все равно считывает одно и тоже)
Не работают методы 1С...короче.
24 ProProg
 
02.12.18
16:15
Все ясно! Работает только с IMAP
25 Мимохожий Однако
 
02.12.18
17:47
А мужики-то не знали
Есть два вида языков, одни постоянно ругают, а вторыми никто не пользуется.