vba Microsoft Outlook共享日历

Question

我正在尝试使用vba收集和汇总团队同事的约会信息。我们将约会信息放在Microsoft Outlook的共享日历上，并且我有权引用它。

我的代码是这样的。

dim olApp as outlook.application
dim olnamespace as outlook.namespace
dim olfolder as folder
dim olconitemns as outlook.items
dim litem as appointment item

set olApp = new outlook.application
set olnamespace = Lapp.getnamespace("MAPI")
set olfolder = olnamespace.getdefaultfolder(olfoldercalendar).folders("sharedfoldersname")
set olconitems = olfolder.items

然后，当我检查在本地窗口中可以得到的内容时，可以看到正在掌握“文件夹路径”或“ olfolder”对象中的内容。但是，当我在“文件夹”对象中选中“项目”时，“计数”显示为0，这意味着无法获取共享日历的约会信息。

因为我知道当我成功获取约会信息时，项目计数显示不为零。

将不胜感激。