【エクセルVBA】GetNamespaceメソッドでOutlookのデータフォルダにアクセスする方法

みなさまこんにちは、ノグチです。

エクセルVBAでOutlookを操作する方法を、何度かの記事に渡ってご紹介しています。

前回までは、エクセルシートの内容をメールで送信したり、連絡先に登録する方法をご紹介してきました。

エクセルシートに記入された件名や本文を、エクセルVBAによってOutlookのメールの件名と本文にセットしてメール送信する方法をご紹介しています。VBAでメールの送信ができれば、宛先に応じてメールの本文を変えつつ一斉に送信することもできますよ。

エクセルVBAでOutlookの連絡先を登録する方法

エクセルVBAでOutlookの連絡先を登録する方法をご紹介しています。この方法なら、エクセルシートに書かれたリストで連絡先を渡されても、サクサク連絡先が登録できますよ。OutlookにはエクセルやCSVファイルからデータをインポートして連絡先を登録する機能もありますが、そちらでは物足りない！という方にオススメです。

お仕事をしていると、あるプロジェクトや取引先、チームなどに関連するメールだけをエクセルシートに書き出したいな…ということ、ありませんか？

或いは、アンケートの回答をメールで送信してもらったりして、それをエクセルシートに並べてみて分析したい…なんてこともあるかもしれません。

それ、VBAを使えば自動化できるかもしれませんよ。

ということで今回からは、エクセルVBAからOutlookのメールフォルダにアクセスして、フォルダ内のメールの内容をエクセルシートにリストとして出力する方法を、順を追ってご紹介していきます。

今回は、そのメールフォルダへアクセスする準備として、GetNamespaceメソッドでOutlookのNamespaceオブジェクトの取得する方法をご紹介します。

Namespaceオブジェクトとは
GetNamespaceメソッドでNamespaceオブジェクトを取得する
1. 取得したNamespaceオブジェクトを確認する
2. Namespaceオブジェクトが取得できるプロファイル
Microsoft Outlook 16.0 Object Libraryの参照設定を忘れずに
最後に
連載目次：エクセルVBAでOutlookを操作してみよう！

Namespaceオブジェクトとは

さて、最初にメールフォルダの中身をエクセルシートに書き出す、と言いましたが、そのためにはまずメールのデータが格納されているフォルダにアクセスしなければいけませんね。

そのために使うのがOutlookApplicationオブジェクトのNamespaceオブジェクト。

Namespaceオブジェクトは、Outlookのメールや予定表、連絡先といった様々なデータにアクセスすることができるオブジェクトです。

GetNamespaceメソッドでNamespaceオブジェクトを取得する

このNamespaceオブジェクトを取得するには、OutlookApplicationオブジェクトのGetNamespaceメソッドを使います。

記述方法はこちら。

OutlookApplicationオブジェクト.GetNamespace(“MAPI”)

引数には、取得したいNamespaceの型を指定する…のですが、現在のところ指定できるのはOutlookのMesseging Application Programming Interface(メッセージアプリケーションの構造)を表す“MAPI”だけですので、記述方法をそのまま覚えてしまうといいですね。

このメソッドを使うことで、Outlookで設定されているアカウントのメール、予定表、連絡先などのデータが格納されているフォルダにアクセスすることができます。

実際にコードにしてみると、こんな感じになります。

Sub GetmailFolder()
Dim objOutlook As Outlook.Application
Dim myNamespace As Outlook.Namespace

Set objOutlook = New Outlook.Application
Set myNamespace = objOutlook.GetNamespace("MAPI")

Stop
End Sub