Мониторинг всех вложенных папок на предмет активности почты Outlook - PullRequest
Новая
       8

Мониторинг всех вложенных папок на предмет активности почты Outlook

0 голосов
/ 21 февраля 2019

Я хочу отслеживать ВСЕ папки на предмет активности почты.В основном, когда почта перемещается из одной папки в другую.Это общий почтовый ящик с именем «Настоящий почтовый ящик».

Проблема в том, что почта перемещается из папки «Входящие» в подпапки неправильно и теряется.Я хочу создать журнал, который будет записывать все перемещения почтовых отправлений, позволяя мне находить важные предметы.

Подпапки обширны и могут углубляться в 4.Пример: 

Trug Mailbox 
        Inbox
               0.Trug 
                        Cap Cargo Updates 
                        Communications 
                        OSDR 
                        Pallet enquires 
                        Paperless Packing Slip 
                        Releases 
                        Shift Reports 
                        Trug Booking Sheet 
                        Trug Replies 
                        XXX

Приведенный ниже код является моей отправной точкой для отслеживания отправки почтовых отправлений в одну из подпапок.

Работает хорошо, но подходит только для 1 подпапки.Мне нужна эта концепция для мониторинга активности более 100 подпапок.

Мне не нужно перемещать файлы.Мне не нужно создавать папки.Я хочу вызвать событие, только когда почтовый элемент перемещен из папки «Входящие» в любую из подпапок.Я серьезно застрял на этом.Даже не уверен, если это возможно.

ВСЯ помощь получена с большим спасибо. 

Option Explicit

Private Fold1 As Outlook.MAPIFolder
Private WithEvents colItems1 As Outlook.Items

Private Sub Application_Startup()
    Set Fold1 = Application.GetNamespace("MAPI").Folders("Storage Trug").Folders("Inbox").Folders("0.Trug").Folders("Releases")
    Set colItems1 = Fold1.Items
End Sub

Private Sub colItems1_ItemAdd(ByVal Item As Object)
    MsgBox "New mail from " & Item.SenderName & " in " & Fold1.Parent.Name
End Sub

Private Sub Application_Quit()
    Set Fold1 = Nothing
    Set colItems1 = Nothing
End Sub
...