VBA для обработки писем
Пытаюсь обрабатывать все приходящие письма таким кодом:
Код:
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)
Можете объяснить, что не так делаю? |
Время: 23:43.
© OSzone.net 2001-
