Макрос обработки вложений Оутлук

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Макрос обработки вложений Оутлук (Макросы/Sub)

alex77755

Дата: Вторник, 24.10.2017, 22:59 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 362

Репутация: 64 ±

Замечаний: 0% ±

Всем доброго времени суток.
Может свежую мысль кто подскажет?
Короче: макросом обрабатываю письма в папке поставщика. Там могут находится несколько писем за разные даты и письма без вложений. Письма без вложений не представляют интереса в данном случае и перемещаются в папку OLD. А из писем с вложением выбираю самое свежее. Заметил, что в ОЛД уходят письма с вложениями. Перетаскиваю назад в папку и обрабатываю - нормальный полёт.
Делаю пошагово со свежим письмом! Ну не видит вложения!
Проблемный кусок кода:

[vba]

Код

  For Each oMail In myitem.Items    'просматриваем каждое письмо

          vlog = oMail.Attachments.Count ' есть ли вложения !!! не видит вложений и отправляет в OLD

            If vlog > 0  Then  'если есть вложения обрабатываю
        ' обработчик
            Else
                 oMail.Move OLD ' перемещаем в OLD папку
            End If
        Next

[/vba]
Но потом если вручную перетащить из OLD обратно в папку, то вложения становятся видны и обрабатываются.
что за ересь? Может какой-то глюк в Оутглюке и есть решение?
Не пинайте, что задаю вопрос тут: этот макрос в екселе

Могу помочь в VB6, VBA
Alex77755@mail.ru

Ответить

Макрос обработки вложений Оутлук (Макросы/Sub)

Страница 1 из 1
1