OutlookVBAで個人用フォルダを参照したい!
Outlookのマクロを作成しているとき、個人用フォルダを参照したいときはありませんか?今回はその方法をご紹介いたします。
方法としては、普通の受信トレイへのアクセスと一緒です。
VBAで個人用フォルダへアクセスする手順
下記画像でいうと、ローカル1が個人用フォルダなので、この中のTEST1フォルダにアクセスします。
以下がコードです。
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objbox = objNamespace.Folders("ローカル1")
Set objInbox = objbox.Folders("TEST1")
MAPIオブジェクトの1つ下に各メールアドレスや個人フォルダがあります。
Foldersメソッドで個人用フォルダのローカル1を取得後、同じ手法でさらに下の
TEST1フォルダを取得しています。
ローカル1に何個もサブフォルダがあって入れ子になっていても、上記のようにFoldersメソッドで順番に辿っていけばアクセスできます。
参考
http://gallery.technet.microsoft.com/office/b1c012d7-f7e2-4761-a5a8-8df81cf3d578