Vba 使用Outlook 2013打开.ics以读取项目

这是针对Office 2013的

在以前版本的Office（2010）中，我有一个脚本，可以下载.ics附件，然后将其保存到我的日历中。加载.ics后，我遍历.ics文件，并将所有

AppointmentItem

复制到我的日历中

Dim oSharedFolder As Outlook.folder
Set oSharedFolder = _
    Application.GetNamespace("MAPI").OpenSharedFolder( _
    "C:\Temp\1421940003_event.ics")

但是，在2013年VBA中，

OpenSharedFolder

方法不允许我再这样做，说“操作失败”。在浏览MSDN文档时，我看到：

OpenSharedFolder-

好的，太好了！他们将名称改为OpenSharedItem（忽略他们使用.ics文件的示例，该文件有相同的错误）。然而，当我去那里时，我看到：

开放共享

所以这两个链接彼此关联——我可能会补充说，这是错误的，因为两者都失败了，尽管两个示例都说它们适用于ics文件

我的问题是:

• 如何使用Outlook 2013 vba打开.ics文件

---

我只能考虑在代码中显式解析ICS文件，或者使用：它将允许您使用RDOAppointmentItem（…，olICal）导入自事件ICS文件，但它也不允许您在单个ICS文件中处理多个事件