お世話になります.初めての質問ですが,よろしくお願いいたします.
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
どのようにすればよいか,ご指南をよろしくお願いいたします.