Outlook2007 VBAからメニューコマンドを実行するコード

Outlook2007を使っていますが
VBAからメニューの中にある
アクション/迷惑メール/送信者を「受信拒否リスト」に追加
というコマンドを実行するには
どのようなコードを記述すればよいのでしょうか。
よろしくお願いします。

No.1 ベストアンサー 回答者： bonaron 回答日時： 2015/03/02 11:22

2007 ということで

文字通り、メニューの実行。

メールを１個選択しておいて実行します。

Sub Sample()
　　Dim oExp As Outlook.Explorer
　　Dim oBar As Office.CommandBar

　　Set oExp = Outlook.ActiveExplorer
　　Set oBar = oExp.CommandBars.Item("Menu Bar")

　　oBar.FindControl(ID:=9786, recursive:=True).Execute
End Sub

最後にダイアログが表示されますが
「今後このダイアログを表示しない」にチェックを入れると
表示されなくなるんでしょうね、きっと。
やってみる気にはなれないけど。


まとめて処理するなら、こんなのも有ります。

迷惑メールに保存されているメールの差出人を受信拒否リストに追加するマクロ
https://outlooklab.wordpress.com/2011/07/29/%E8% …

この回答へのお礼

教えていただきました方法でできました。
IDを変えることにより他のメニューのコマンドに
簡単に適応できてとても良い回答です。
ありがとうございました。

お礼日時：2015/03/02 22:09