Событие ItemRemove в Outlook для сообщений в любой папке

[Muso]

Добрый день!
Не могли бы помочь с решением задачки
У меня возникла необходимость написать обработчик на событие - удаление сообщения из любой папки (заранее неизвестно куда эти сообщения разложил пользователь и какие папки насоздавал, как вложенные в olFolderInbox , так и не вложенные).
Т.е. что-то типа этого, но при удалении любого сообщения из любой папки:

Public WithEvents myOlItems As Outlook.Items

Private Sub Application_Startup()
Set myOlItems = Outlook.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub myOlItems_ItemRemove()
' реагируем на удаление сообщения
End Sub