Hi! this is wrong.. I've seen it done a lot of places..
Only works in english environment..
You have to get the localized name for Inbox/Calendar.
This will not work:
' get the calendar path
strCalPath = Left(bstrURLItem, InStr(1,
bstrURLItem, "/Inbox/")) & "Calendar/"