设置变量时，Outlook VBA运行时错误13

Question

我有一个VBA文件，已分发给我的同事，当我的同事打开Outlook时，他们在“设置olRingsInboxItems”行上收到运行时错误13。它可以在我的计算机上正常工作，所以我完全不知所措。

以下代码是ThisOutlookSession：

Option Explicit
Private WithEvents olRingsInboxItems As Outlook.Items
Private Sub Application_Startup()
  Dim oNameSpace As NameSpace
  Set oNameSpace = Application.GetNamespace("MAPI")
  Set olRingsInboxItems = oNameSpace.Folders("Rings").Folders("Inbox").Items
End Sub