GetNamespaceで、コンパイルエラー

アクセスからアウトルックの受信メールを操作しようとしているのですが

Private Sub test1()
Dim requestsFolder As MAPIFolder
Dim appNameSpace As Namespace
Dim requestMailItem As MailItem
Dim i As Integer

'受信フォルダの取得
Set appNameSpace = Application.GetNamepace("MAPI")
Set requestsFolder = appNameSpace.GetDfaultFolder(olFolderInbox)

・
・
・

End Sub


これを実行すると
GetNamespaceで、コンパイルエラーになります。

Microsoft Outlook ○.○ Object Library
で、アウトルックに参照設定はしているのですが
アクセスからはGetNamespaceは使えないのでしょうか？

No.2 ベストアンサー 回答者： nicotinism 回答日時： 2013/03/20 12:49

>Application.GetNamepace("MAPI")

タイプミスもありますけど
Access上で、Application・・・としてますので
自身（Access）を参照しています。
Outlookを指定する必要があります。
↓Office2010の場合だとこんな風かと？

Private Sub test1()
Dim requestsFolder As Outlook.Folder '以下、明示した方が安全だと思います。
Dim appNameSpace As Outlook.NameSpace
Dim requestMailItem As Outlook.MailItem
Dim i As Integer
Dim oOLK As Outlook.Application

Set oOLK = Outlook.Application

'受信フォルダの取得
Set appNameSpace = oOLK.GetNamespace("MAPI")
Set requestsFolder = appNameSpace.GetDefaultFolder(olFolderInbox)
msgbox "何もしないで閉じます"
Set requestsFolder = Nothing
Set appNameSpace = Nothing
Set oOLK = Nothing
End Sub

こちらをご覧ください。（Outlookは知らんので・・）
Outlook オブジェクトの探りかた
Excel VBA から Outlook Object Library を 参照設定して使う
http://www.ken3.org/cgi-bin/group/vba_outlook.as …

http://outlooklab.wordpress.com/2007/03/03/outlo …

この回答へのお礼

ありがとうございました。

お礼日時：2013/03/25 20:10

No.1 回答者： masatsan 回答日時： 2013/03/20 07:10

GetNamepace("MAPI")　ですか？

スペルが違うようですけど。

この回答へのお礼

ありがとうございました。

お礼日時：2013/03/25 20:10