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

  • 質問

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

    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
    
    どのようにすればよいか,ご指南をよろしくお願いいたします.

    2015年2月22日 3:13

すべての返信

  • こんにちは。

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

    ですので、

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

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

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

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

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

    2015年2月22日 4:08
    モデレータ