vba - Open.ics 与 Outlook 2013 一起阅读项目

Question

这是特定于 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 - This method does not support iCalendar appointment (.ics) files. To open iCalendar appointment files, you can use the OpenSharedItem method of the NameSpace object

好的，太棒了!他们将名称更改为 OpenSharedItem(忽略他们使用 .ics 文件的示例......它具有相同的错误)。然而，当我去那里时，我看到:

OpenSharedItem - This method does not support iCalendar calendar (.ics) files. To open iCalendar calendar files, you can use the OpenSharedFolder method of the NameSpace object

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

我的问题是:

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

Answer 1

我只能想到在代码中显式解析 ICS 文件或使用 Redemption (我是它的作者):它允许您使用 RDOApppointmentItem 通过单个事件导入 ICS 文件。 Import (...，OLICal)；可以使用 RDOFolder2 导入单个 ICS 文件中的多个事件.导入:

set Session = CreateObject("Redemption.RDOSession")
Session.MAPIOBJECT = Application.Session.MAPIOBJECT
set Folder = Session.GetDefaultFolder(olFolderCalendar)
set items = Folder.Import("c:\temp\MultipleItems.ics", olICal)
for each item in items
    debug.Print item.Subject
next