Пока событие itemadd работает в моем прогнозе, он не работает в друзьях pc

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

Я нашел ошибку, я не имел в виду папку «Входящие». поэтому событие не срабатывало, потому что мое событие было в папке «Входящие» :)