А в Аутлуке как такое можно сделать...?

ClassModule с кодом

Dim myOlApp As New Outlook.Application
Public WithEvents myOlItems As Outlook.Items

Public Sub Initialize_handler()
Set myOlItems = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts).Items
End Sub

Private Sub myOlItems_ItemAdd(ByVal Item As Object)
Dim myOlMItem As Outlook.MailItem
Dim myOlAtts As Outlook.Attachments
Set myOlMItem = myOlApp.CreateItem(olMailItem)
myOlMItem.Save
Set myOlAtts = myOlMItem.Attachments
' Add new contact to attachments in mail message
myOlAtts.Add Item, olByValue
myOlMItem.To = "Sales Team"
myOlMItem.Subject = "New contact"
myOlMItem.Save
End Sub
не работает.... на появление нового контакта никакой реакции

Кстати говоря предыдущий пример с Ёкселем тоже не сработал
(когда строка Public WithEvents objSheet As Excel.Worksheet лежит в модуле - ругань на нее : only valid in object module, когда я ее кладу в класс-модуль и вызываю через объект класса - объект не создается - синтаксическая ошибка). мож что еще с настройками не так? (Хотя ссылки на объектную модель есть...)

Это в класс-модуль EventHandler
Public WithEvents objSheet As Excel.Worksheet
Private Sub objSheet_Activate()
MsgBox "Hello", vbInformation, "Event"
End Sub

Это в модуль
Option Explicit
Dim myEventHandler As EventHandler
Public Sub myEvent()
Set myEventHandler.objSheet = ThisWorkbook.Worksheets.Add
myEventHandler.objSheet.Activate
End Sub

Причем ObjectBrowser видит класс EventHandler.
Тем не менее попытка запустить модуль вызвала сообщение :
object variable or With block variable not set

Это отработало....

Dim myEventHandler As New EventHandler
Public Sub myEvent()
Set myEventHandler.objSheet = ActiveWorkbook.Worksheets(1)
myEventHandler.objSheet.Activate
End Sub

А это нет - метод Add как-то не так используется (наверное имело смысл проинициализировать объект лист)
Dim myEventHandler As New EventHandler
Public Sub myEvent()
Set myEventHandler.objSheet = ActiveWorkbook.Worksheets.Add
myEventHandler.objSheet.Activate
End Sub
---------------
Но обработчик вызвался и это главное. Спасибо огромное ))))