引用共享日历

Question

我试图逃避这个问题的代码： Exporting Outlook calendar data to Excel file - Shared calendars and VBA

我的代码修改。

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

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

我测试了这个例子太： MSDN link

此信息是有用的，但还不够：http://www.snb-vba.eu/

我需要导出共享MS Outlook的日历（与Exchange服务器）到MS Excel。

这些日历分享给我和其他人。

我运行MS Office 2010版本。

Answer 1

VBA中的错误13意味着类型不匹配。有关更多信息，请参阅Type mismatch (Error 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