使用VBA的GetSharedDefaultFolder访问共享Outlook邮箱时遇运行时错误

我和同事都有权限访问名为“mailbot”的共享Outlook账户，编写了VBA宏用于扫描主收件箱邮件、提取信息并填充Excel表格。以下代码在我的计算机上运行正常：

Sub Account_Change()

Dim outlookApp As Outlook.Application
Dim objectNS As Outlook.Namespace
Dim sharedmailbox As Outlook.Recipient

Set outlookApp = Outlook.Application
Set objectNS = outlookApp.GetNamespace("MAPI") 'Object that can access folders/storage
objectNS.Logon

Set sharedmailbox = objectNS.CreateRecipient("mailbot@mailcarrier.com")

sharedmailbox.Resolve

If sharedmailbox.Resolved Then

    Set objFolder = objectNS.GetSharedDefaultFolder(sharedmailbox, olFolderInbox)
    
    For Each Item In objFolder.Items
        If TypeOf Item Is Outlook.MailItem Then
            Dim oMail As Outlook.MailItem: Set oMail = Item
            body_str = CStr(oMail.Body)
        End If
    Next
End If

但同事的电脑执行到Set objFolder = objectNS.GetSharedDefaultFolder(sharedmailbox, olFolderInbox)行时，出现运行时错误“-2147221219 (8004011d)”，提示“因注册表或安装问题导致操作失败，请重启Outlook重试，若问题持续请重新安装”。重启Outlook无效，添加Logon语句后仍未解决问题。

• 确认共享邮箱已添加到同事的Outlook配置
  让同事手动添加共享邮箱：打开Outlook→文件→账户设置→账户设置→双击当前邮箱→更多设置→高级→添加，输入mailbot@mailcarrier.com并确认。添加完成后重启Outlook，再运行宏。

• 修改宏代码，直接通过账户名称获取共享文件夹
  跳过CreateRecipient和Resolve步骤，尝试直接遍历已配置的账户找到共享邮箱收件箱：

  Sub Account_Change()
      Dim outlookApp As Outlook.Application
      Dim objFolder As Outlook.Folder
      Dim oAccount As Outlook.Account
      
      Set outlookApp = Outlook.Application
      
      '遍历所有账户，定位共享邮箱
      For Each oAccount In outlookApp.Session.Accounts
          If oAccount.DisplayName = "mailbot" Or oAccount.SmtpAddress = "mailbot@mailcarrier.com" Then
              Set objFolder = oAccount.DeliveryStore.GetDefaultFolder(olFolderInbox)
              Exit For
          End If
      Next oAccount
      
      '找到收件箱后处理邮件
      If Not objFolder Is Nothing Then
          For Each Item In objFolder.Items
              If TypeOf Item Is Outlook.MailItem Then
                  Dim oMail As Outlook.MailItem: Set oMail = Item
                  body_str = CStr(oMail.Body)
              End If
          Next
      End If
  End Sub
  

• 检查Outlook信任中心宏设置
  让同事打开Outlook→文件→选项→信任中心→信任中心设置→宏设置，选择“启用所有宏”或“启用数字签署的宏；所有其他宏都通知”，同时勾选“信任对VBA项目对象模型的访问”。

• 修复Outlook安装
  打开控制面板→程序和功能→找到Microsoft Office/Outlook→右键选择“更改”→先尝试“快速修复”，完成后重启电脑；若无效再选择“联机修复”。

• 检查注册表权限（操作前请备份注册表）
  让同事打开注册表编辑器（运行regedit），导航到HKEY_CURRENT_USER\Software\Microsoft\Office\<你的Outlook版本号>\Outlook，右键该键→权限，确保当前用户拥有“完全控制”权限。

内容的提问来源于stack exchange，提问作者GKelly