Outlook VBA Runtime Ошибка 13 при установке переменной

Question

У меня есть файл VBA, который я разослал своим коллегам, и когда мои коллеги открывают Outlook, они получают ошибку времени выполнения 13 в строке «Set olRingsInboxItems». Он отлично работает на моем компьютере, поэтому я в полной растерянности.

Следующий код - 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