如何从MS Access窗体打开非默认Outlook日历

Private Sub btnOpenCalendar_Click()
    Dim objOutlook As Object
    Dim objNamespace As Object
    Dim objFolder As Object
    
    ' 创建Outlook应用对象
    Set objOutlook = CreateObject("Outlook.Application")
    
    ' 获取Outlook命名空间
    Set objNamespace = objOutlook.GetNamespace("MAPI")
    
    ' 获取非默认日历的文件夹路径
    ' 可以通过在Outlook中打开非默认日历，然后在VBA中使用以下代码获取路径：
    ' MsgBox objNamespace.GetDefaultFolder(9).FolderPath
    ' 将路径复制到下面的双引号中
    Set objFolder = objNamespace.GetFolder("非默认日历的文件夹路径")
    
    ' 打开非默认日历
    objFolder.Display
    
    ' 释放对象
    Set objFolder = Nothing
    Set objNamespace = Nothing
    Set objOutlook = Nothing
End Sub