VBAでoutlookの仕訳ルール一覧

質問

VBAでoutlookの仕訳ルール一覧をイミディエイトウインドウに出したり
エクセルに書き出したりすることは可能ですか？

過去ログを検索しましたが
http://okwave.jp/qa/q7801059.html
がヒット、手作業で、とのご回答がありましたが、
手作業ではなくVBAで行う事は可能でしょうか？

その場合、サンプルコードやそのようなサイトを教えて頂けないでしょうか？

回答No.1

queuerev2 · ベストアンサー

以下のサイトが参考になります。英語なので読むのがちょっと大変なのですが・・・

Enable or disable Outlook rules using VBA - Slipstick Systems
http://www.slipstick.com/featured/enable-or-disable-rule-using-reminder-and-vba/

このサイトを参考に簡単なサンプルを作ってみました。
ルールの名前一覧をイミディエイトウィンドウに出力するものです。
Sub rulenames_to_iw()
Dim olRules
Dim e
Set olRules = Application.Session.DefaultStore.GetRules
For Each e In olRules
Debug.Print e.Name
Next
End Sub

参考URL：

http://www.slipstick.com/featured/enable-or-disable-rule-using-reminder-and-vba/

お礼

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