Хотя событие itemadd работает в моем мировоззрении, оно не работает в ПК друзей

Question

У меня есть код, который работает в моей системе, но не на компьютере моего друга.Оба используют одну и ту же версию Outlook.

Вот фрагмент кода.

Private WithEvents olInboxItems As Items

Private Sub start_Click() 

Dim objNS As nameSpace
  Set objNS = Application.Session
  ' instantiate objects declared WithEvents

  Call accessInbox(inbox)          // my own function 
  Set olInboxItems = inbox.Items
  'Set objNS = Nothing

  Me.Hide
End Sub   


Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
  On Error Resume Next

  MsgBox "a Message recieved"
  'Call download(Item)
  Call multiSubjectDownload(Item)       //my own function 

End Sub

В чем может быть проблема?

Существуют ли настройки, которые не позволяют коду обнаружить новыйпочта в почтовом ящике?

Answer 1

я обнаружил ошибку, которую я не имел в виду во входящих. так что событие не было запущено, потому что мое событие item было на входящей почте:)