Vba 引用共享日历

我尝试运行此问题的代码：

我的代码修改

Set olNS = olApp.GetNamespace("MAPI")
Set myCalItems = olNS.CreateRecipient("theOtherUser")
myCalItems.Resolve
myCalItems.GetSharedDefaultFolder 

我得到错误13类型不匹配。我测试了不同的组合，但没有结果

我也测试了这个例子：

这些信息很有用，但还不够：

我需要将共享的MS Outlook日历（使用Exchange server）导出到MS Excel

这些日历是我和其他人共享的

---

我运行MS Office 2010版本。

VBA中的错误13表示类型不匹配。有关更多信息，请参阅

您需要改用以下代码：

Sub ShowSharedFolder(OutlookApplication As Outlook.Application) 
   Dim myNamespace As Outlook.NameSpace 
   Dim myRecipient As Outlook.Recipient 
   Dim CalendarFolder As Outlook.Folder 

   Set myNamespace = OutlookApplication.GetNamespace("MAPI") 
   Set myRecipient = myNamespace.CreateRecipient("theOtherUser") 
   myRecipient.Resolve 

   If myRecipient.Resolved Then 
     Set CalendarFolder = myNamespace.GetSharedDefaultFolder(myRecipient, olFolderCalendar) 
     CalendarFolder.Display 
   End If 
End Sub 

---

很可能您合理地将MyCalitem声明为名称所示的项目。在您的代码中，myCalItems是另外一种东西。你用什么？Excel或Outlook-vba？您好！我正在使用excelvba