Excel 引用共享收件箱时，错误：不允许分配到常量

我有一个代码可以：

转到共享邮箱下方的特定文件夹公司状态报告Inquiry@company.com. 搜索未读电子邮件+主题短语：公司a状态报告 接收符合条件的电子邮件，查找最后一封电子邮件，然后检查是否存在附件。 如果存在附件，则下载该文件。 该代码以前工作正常，但现在我在这一行得到一个错误：

Set olFolder = oOlns.GetSharedDefaultFolder(olShareName, olFolderInbox) '// Inbox

错误是：

不允许分配到常数

图书馆参考资料

---

对不起，现在还不能评论

错误可能由以下原因引起：

Const olFolderInbox As Integer = 6

如果将其更改为正常olFolderInbox=6，则可能会解决您的问题

我有一个类似的vba，它打开收件箱，然后检查用户的电子邮件详细信息并反复浏览

在我的上，我设置了不同的Dim

在哪里

我的推荐信是：

---

希望我能帮上忙。

丢失的olfolder声明表明丢失了显式选项，即使您的代码中包含它。删除outlook引用，因为代码看起来晚绑定到outlook。当您将EOLFOLDERINBOX定义为常量时，这可能会导致错误，如果后期绑定，什么是outlook枚举不可访问；如果您键入这两行olShareName.Resolve，如果不是olShareName.Resolved，那么在设置olFolder=oOlns.GetSharedDefaultFolderolShareName，olFolderInboxies之前Msgbox无法解析，会发生什么情况？它最初是您的，只需稍作修改。谢谢，它真的很好，对我很有帮助！！不幸的是，你的建议仍然让我在同一条线上遇到同样的错误。解决方法是使引起错误的物体变暗。因此，我添加了：Dim olFolder作为Outlook.Folder，在错误行之前设置olFolder…为什么早期绑定Dim olFolder作为Outlook.Folder，当所有都为后期绑定做好准备Dim olFolder作为与不同Outlook版本兼容的对象时，如果早期绑定仅支持相同或更新的版本谢谢，它实际上对我有很大帮助。我试图将设置更改为无效。然而，你给我指出了正确的方向，因为你已经调暗了你的文件夹，而我没有。所以它解决了我的问题。谢谢我应该知道，你的变数总是模糊的@Wizhi总是使用选项明确，而不仅仅是在问题中显示；！我总是使用选项显式，因为它会减少头痛。。。然而，这是一个奇怪的情况，因为它在我离开之前运作良好。2周后，当我回来时，宏不起作用，我收到了这个错误消息。。。

Const olFolderInbox As Integer = 6

Dim myOlApp As New Outlook.Application
Dim filteredItems As Outlook.Items
Dim Ns As Outlook.Namespace
Dim Folder As Outlook.Folder
Dim olSharedName As Outlook.Recipient

Set Ns = myOlApp.GetNamespace("MAPI")
Set olSharedName = Ns.CreateRecipient("e'mail@domain.com") 
Set Folder = Ns.GetSharedDefaultFolder(olSharedName, olFolderInbox)