itemadd 이벤트는 내 Outlook에서 작동하지만 친구 PC에서는 작동하지 않습니다

Question

내 시스템에서는 작동하지만 내 친구 PC에서는 작동하지 않는 코드가 있습니다. 두 가지 모두 동일한 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

내가받은 편지함을 언급하지 않고있는 오류를 발견했습니다. 내 항목 이벤트가받은 편지함에 있었기 때문에 이벤트가 실행되지 않았습니다.