conf t

インフラエンジニアのメモ

Outlookマクロで個人用フォルダ(pst)へアクセスする方法

OutlookVBAで個人用フォルダを参照したい!

Outlookのマクロを作成しているとき、個人用フォルダを参照したいときはありませんか?今回はその方法をご紹介いたします。

方法としては、普通の受信トレイへのアクセスと一緒です。

 

 

 

VBAで個人用フォルダへアクセスする手順

下記画像でいうと、ローカル1が個人用フォルダなので、この中のTEST1フォルダにアクセスします。

 

f:id:monaski:20140525234706p:plain

 

 以下がコードです。  

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