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：它将允许您使用RDOAppointmentItem从事件ICS文件导入。Import（...，olICal），但它也不允许你在一个ICS文件中处理多个事件......

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

1 个答案: