365 - VBA для обработки писем

365 - VBA для обработки писем

test009

Старожил

Сообщения: 165
Благодарности: 2

Конфигурация

Профиль | Отправить PM | Цитировать

Пытаюсь обрабатывать все приходящие письма таким кодом:

Код:

Public WithEvents objIncomingItems As Outlook.Items

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


Public Sub MySub(ByVal objItem As Object)
   MsgBox 111
End Sub


Private Sub objIncomingItems_ItemAdd(ByVal objItem As Object)
    MySub (objItem)
End Sub

Хочу при событии ItemAdd вызвать свою процедуру, передав ей аргумент - письмо outlook, и дальше там заложить свою логику.
Когда приходит письмо, этот код выдает ошибку Run time error 424: Object required, ссылаясь на MySub (objItem)

Можете объяснить, что не так делаю?

-------
Готовность человека меняться отражает степень его здравомыслия. Жак Фреско

Отправлено: 22:52, 06-09-2021