Сохранять файлы из вложений писем в 1С

06.10.23

✎

14:45

Есть сервис, который присылает отчеты в пдф на gmail.
Этот отчет надо в виде того же ПДФ засунуть в базу в хранилище значений.

Идея реализации - сохранять атачменты из gmail на гугл-диск, который синхронизирован с папкой на компе пользователя. Потом забираем файлик и сохраняем его в 1С.

Все ок, только не получается более или менее типовыми средствами винды (или gmail или мелкософта) сохранять файли из аттачментов.

Вернее получилось такое сделать через MS Power Automate, но там забор каждые 15 минут, а надо минимум в 15 раз чаще.

Может кто подскажет как и чем можно такое реализовать?
Заранее Спасибо!

1 Valdis2007

06.10.23

✎

14:51

(0) создай ящик, из которого будешь программно забирать, что хочешь. А потом настрой пеерсылку с gmail на этоот ящик.

2 AnBlast

06.10.23

✎

14:53

программно забирать вложения? а так можно?

3 vde69

06.10.23

✎

15:01

Установи плагин OutlookFileDraw и сможешь мышкой перетаскивать из почты в 1с.

я делал, работает, правда там доработок много, но результат хороший

4 Valdis2007

06.10.23

✎

15:02

(2)
ИнтернетПочтовоеВложение (InternetMailAttachment)
Свойства:
Данные (Data)
Идентификатор (CID)
Имя (Name)
ИмяФайла (FileName)
Кодировка (Encoding)
СпособКодирования (EncodingMode)
ТипСодержимого (MIMEType)
Описание:
Вложение в почтовое сообщение представляет собой двоичные данные.

5 AnBlast

06.10.23

✎

16:04

(3) не... так низзя )
(4) ща копну )) пасиб! очень помог!!

6 AnBlast

06.10.23

✎

17:42

а есть у кого код или настройки для входящей почты?
не могу настроить... что-то мелкое там, но не работает. отправка работает, а прием нет

вот такой код не работает

    Профиль=Новый ИнтернетПочтовыйПрофиль;
    Профиль.АдресСервераIMAP     =     "imap.gmail.com";
    Профиль.ПользовательIMAP    =    "[email protected]";
    Профиль.ПарольIMAP            =    "mypass";
    Профиль.АдресСервераSMTP     =     "smtp.gmail.com";
    Профиль.Таймаут             =     10;
    Профиль.Пароль               =     "mypass2";
    Профиль.Пользователь         =     "[email protected]";
    Профиль.ПортIMAP             =     993;   //465    578
    Профиль.ПортSMTP             =     587;
    Профиль.ИспользоватьSSLSMTP    =    Истина;
    Профиль.ИспользоватьSSLIMAP    =    Истина;
    Профиль.POP3ПередSMTP = Ложь ;

    ИнтернетПочта = Новый ИнтернетПочта;

ИнтернетПочта.Подключиться(Профиль,ПротоколИнтернетПочты.IMAP);

и валится по ошибке