outlookの予定をexcelから読む

質問

Office2007を使っています。
予定作成のフロントエンドとしてoutlook、
全体の予定表の作表、印刷エンジンとしてexcel、という使い方をしたいです

Dim oApp 'As Outlook.Application OutlookのApplication オブジェクトを入れる
Dim myNameSpace 'As Outlook.NameSpace 名前のスペースと言われても、、
Dim myFolder 'As Outlook.Folder フォルダー指定
Dim shigoto
Dim aITEM 'As Outlook.AppointmentItem '予定、アポ

Set oApp = CreateObject("Outlook.Application")
Set myNameSpace = oApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(6) '規定のフォルダー olFolderInbox=6 指定

Set shigoto = myFolder.Folders("予定表（仕事）")
shigoto.display
oApp.ActiveWindow.WindowState = 2 'olNormalWindow=2 を セット

For Each aITEM In shigoto.Items
'aITEMに入っている個々の予定に対する処理
Next

http://www.ken3.org/cgi-bin/group/vba_outlook.asp
上記サイトのコードで、規定の予定表にある予定オブジェクトにアクセスすることはできました
これを、iCloud内の予定表に対して同じことをやりたいのですが、うまくいきません。

Set shigoto = myFolder.Folders("iCloud内の予定表（仕事）")
Set shigoto = myFolder.Folders("iCloud").Folders("予定表（仕事）")

などとやってみたのですが、

実行時エラー'-2147221283(8004010f)":
操作は失敗しました。オブジェクトが見つかりませんでした。

というエラーで終了です。

うまくいく方法はないでしょうか？
よろしくお願いします。

回答No.1

10CubeLeaf · ベストアンサー

このコードだと myFolder には既定の予定表が入っていますよね?
iCould の予定表は既定の予定表の下ではなく、メールボックスと同じレベルに iCloud というフォルダーが表示されており、その下に予定表があるのでは?
その場合は、以下のようにして取得できるのではないかと思います。

Set shigoto = myNameSpace.Folders("iCloud").Folders("予定表（仕事）")

お礼

バッチリです！！

検索してみると、同じように悩んでいる人は海外含めて結構いるようでしたが、
いずれも苦戦中でズバリの解答には行き着けずにいました。

本当にありがとうございました