虽然itemadd事件在我的Outlook中起作用，但它在朋友的电脑中不起作用

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

我发现错误我没有提到收件箱。所以事件没有被触发，因为我的项目事件在收件箱中：）