Read ICS file using Excel VBA with Outlook 2013/2016

[burtachame]

Hi All,

Does anyone here able to read an ICS file(with Outlook 2013 or 2016) using VBA in Excel?


Basically I have this ICS file, I would like to evaluate all the events under it. I just need to get the data such as the date start and date end of an event. Also, I need to generate the recurring events.


I was able to generate a code that works with Outlook 2007/2010

my code snippet:

Dim items
Dim ol, MAPI, cal_ics As Object
    
Set ol = CreateObject("Outlook.Application")
Set MAPI = ol.GetNamespace("MAPI")
Set cal_ics = MAPI.opensharedfolder("C:\[path]\[ics_file]")

Set items = cal_ics.items
items.Sort "[Start]"
items.IncludeRecurrences = True

The problem I have right now is that when your Outlook is either 2013 or 2016, The OpenSharedFolder method is not working anymore.

I have read other forums and found out that this this seems to be a challenge. They mentioned something about Redemption but this just would not work for me.

I am just being optimistic that maybe someone here already encountered and solved this problem.

I would be very grateful if someone can help me out.

Thanks in advance.