変数 requestsFolder に格納できない

質問

アウトルックvbaでこれを実行すると

Sub test()
Dim requestsFolder As MAPIFolder
Dim appNameSpace As NameSpace

Set appNameSpace = Application.GetNamepace("MAPI")
Set requestsFolder = appNameSpace.GetDfaultFolder(olFolderInbox)

End Sub

「実行時エラー'438': オブジェクトは、このプロパティまたはメソッドをサポートしていません」
が出るのですが、何がおかしいのでしょうか？まったくわかりません。

回答No.1

kmee · ベストアンサー

http://msdn.microsoft.com/ja-jp/library/microsoft.office.interop.outlook._namespace.getdefaultfolder%28v=office.12%29.aspx

eが抜けているだけ、ってことは無いですか?

このエラーは、そこに書いてある通り、存在しないプロパティやメソッドを使おうとしたときに発生するものです。
・そのメソッド/プロパティがあると思っていたら無かった
・単なる入力間違い
が主な原因です。いずれも、マニュアルで確認しましょう。

お礼

本当ですね、
Set requestsFolder = appNameSpace.GetDefaultFolder(olFolderInbox)
のGetDfaultFolderはGetDefaultFolderが正しいようですね。

そしてGetNamepaceのsがなかったです。

実行時エラー'438'はスペルミスが原因なのですね。
ありがとうございました。勉強になりました。