Имя: Пароль:
1C
1С v8
Не удаляются письма с сервера Gmail
0 AlexKulikov
 
23.08.16
14:48
Добрый день, уважаемые форумчане. Очень нужна Ваша помощь, по указанному вопросу.
Данные о конфигурации: Бухгалтерия предприятия, редакция 2.0 (2.0.65.37);
Платформа: 1С:Предприятие 8.3 (8.3.7.1917).

Суть вопроса: Есть обработка, которая лезет на почтовый ящик( в данном случае мой),
получает письма, обрабатывает их, а затем должна удалить выбранные письма с почтового
ящика. Но не удаляет. При этом, при запуске обработки в следующий раз, эти сообщения
в выборку не попадут, но все равно будут отображаться в моем почтовом ящике.

Очень надеюсь на Вашу помощь, с уважением Алексей.

Код:
  
Профиль = Новый ИнтернетПочтовыйПрофиль;
    УчетнаяЗапись = Справочники.УчетныеЗаписиЭлектроннойПочты.СистемнаяУчетнаяЗаписьЭлектроннойПочты;
        
    Профиль.АдресСервераSMTP = УчетнаяЗапись.СерверИсходящейПочтыSMTP;
    Профиль.АдресСервераPOP3 = УчетнаяЗапись.СерверВходящейПочтыPOP3;
    Профиль.ПортPOP3 = УчетнаяЗапись.ПортPOP3;
    Профиль.ПортSMTP = УчетнаяЗапись.ПортSMTP;

    Профиль.ИспользоватьSSLPOP3 = УчетнаяЗапись.ИспользоватьЗащищенноеСоединениеДляВходящейПочты;

    Профиль.ИспользоватьSSLSMTP = УчетнаяЗапись.ИспользоватьЗащищенноеСоединениеДляИсходящейПочты;

    Профиль.Пользователь = УчетнаяЗапись.Пользователь;
    Профиль.Пароль = УчетнаяЗапись.Пароль;
    Профиль.ПользовательSMTP = УчетнаяЗапись.ПользовательSMTP;
    Профиль.ПарольSMTP = УчетнаяЗапись.ПарольSMTP;
    Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
    
    Почта = Новый ИнтернетПочта;

    
    Попытка
        Почта.Подключиться(Профиль);
        Сообщить("Подключенено");
    Исключение
        Сообщить("Не удалось подключиться к серверу");
        Сообщить(ОписаниеОшибки());
    КонецПопытки;
    
     СообщенияНаУдаление = Новый Массив;
         СообщенияНаУдаление.Очистить();
     ВсеСообщения = Почта.Выбрать(Ложь);
     Для Каждого  Элемент Из ВсеСообщения Цикл
         СообщенияНаУдаление.Добавить(Элемент);
     КонецЦикла;    
    
     Если СообщенияНаУдаление.Количество() > 0 Тогда  
         Почта.УдалитьСообщения(СообщенияНаУдаление);
    КонецЕсли;
    
    Почта.Отключиться();
1 AlexKulikov
 
23.08.16
16:07
Апну тему.
2 AlexKulikov
 
23.08.16
18:42
Разобрался. Использовал IMAP вместо POP3.
Выдавать глобальные идеи — это удовольствие; искать сволочные маленькие ошибки — вот настоящая работа. Фредерик Брукс-младший