OutlookのOpenSharedFolderメソッドで「操作は失敗しました」エラーが出ます

Question

お世話になります．初めての質問ですが，よろしくお願いいたします．

Outlook 2013の予定表に関して，Aさんの予定表をBさんが確認できるようにしたいのですが，

それぞれのアカウントの制約から，Web上で共有することができません．

そこで，Aさんはメニューのファイル - 予定表の保存で，iCalendar形式のA.icsファイルをサーバの共有フォルダに保存し，

Bさんはファイル - 開く/エクスポート - 予定表を開くで，上記のA.icsを開くことでAさんの予定表が確認できるようにしています．

この作業をVBAで自動化したいと考え，

Aさんについては，予定表FolderオブジェクトのGetCalendarExporterメソッドでCalendarSharingオブジェクトを取得し，

SaveASICalメソッドでA.icsのiCalendar カレンダーファイルを保存するVBAを作成し，

このマクロをリボンに追加することで，ワンクリックで作業が行えるようになりました．

しかしながらBさんについては，OpenSharedFolderメソッドでA.icsを読み込むVBAを作成しましたが，

実行時エラー　2147418113 (8000ffff)：操作は失敗しました．

のエラーがSet oFolder = oNamespace.OpenSharedFolder... の行で出てしまいます．

Sub RenewSchedule()

    Dim oNamespace As NameSpace
    Dim oFolder As Folder
    
    Set oNamespace = Application.GetNamespace("MAPI")
    Set oFolder = oNamespace.OpenSharedFolder("X:\A.ics")
    
    Set oFolder = Nothing
    Set oNamespace = Nothing
    
    MsgBox ("完了しました")
    
End Sub

どのようにすればよいか，ご指南をよろしくお願いいたします．

Answer 1

こんにちは。

掲載コードをOutlook2010で確認しましたが問題なく取得できました。

ですので、

1. Outlook2013固有の問題
2. 環境に依存した問題（ファイルアクセス権限など）
3. Aさんのエクスポートしたファイルがおかしい

のどれかかなという気がしてます。

１については、Outlook2013が無いので他の回答者様の検証結果があると助かります。

２については質問者様のほうでエクスポートしたファイル、共有フォルダのアクセス権限を一度見直して頂いたほうが良いでしょう。
（セキュリティ設定を緩くした状態では成功するのか失敗するのかなど）

３についてはAさんがマクロでエクスポートしたファイルをBさんが手動で取込んだ場合に成功するのかどうかを検証するとか