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 · ベストアンサー

>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.asp#HELP

http://outlooklab.wordpress.com/2007/03/03/outlook-%E3%81%AE%E3%82%AA%E3%83%96%E3%82%B8%E3%82%A7%E3%82%AF%E3%83%88-%E3%83%A2%E3%83%87%E3%83%AB/

お礼

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

回答No.1

masatsan

GetNamepace("MAPI")　ですか？
スペルが違うようですけど。

お礼

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