この方法はOutlook2013以降は使えない機能になっています。
セキュリティの強化のためとされています。
もっとも全く使えないわけではなく、レジストリを設定すれば動きます。
もうすぐOutlook2010のページもみな日本語がなくなり、忘れ去られてしまうでしょう。
しかし、サブルーチンでは全く意味がわかりません。

Outlook で自動仕訳ウィザードのスクリプトを作成する方法
2020/03/18
適用対象:Microsoft Outlook 2010, Microsoft Office Outlook 2003

概要

Outlook の自動仕訳ウィザードを使用すると、特定のルールを作成するときに "スクリプトを実行" することができます。 これにより、開発者は、自動仕訳ウィザードの通常の機能を使用するときでも、受信メールに対してVBA~~アクション~~を実行することができます。

詳細

重要

自動仕訳ウィザードはカスタムコードを "script" として参照しますが、Microsoft Visual Basic Scripting Edition (VBScript) や Microsoft JScript などの他のスクリプト言語ではなく、Outlook Visual basic for Applications でコードを作成する必要があります。 また、Outlook Visual Basic for Applications は展開するように設計されていないため、このカスタムコードを展開するには、各ユーザーのコンピューターに手動で構成する必要があります。 Outlook.COM アドインでカスタムコードを作成することはできません。 Visual Basic for Applications プロジェクトの配布に関連する制限の詳細については、以下の記事番号をクリックして、Microsoft サポート技術情報の記事を参照してください。

290779 Outlook 2002 Visual Basic for APPLICATIONS (VBA) プロジェクトの管理と配布に関する説明

メッセージを処理するカスタムコードを実装するには、Visual Basic for Applications でサブルーチンSubプロシージャ¹を作成します。 Subプロシージャの名前は重要ではありませんが、自動仕訳ウィザードが電子メール (MailItem) または会議出席依頼 (MeetingItem) をSubプロシージャに渡すため、1つの引数を受け取る必要があります。 引数は MailItem または MeetingItem 型である必要があります。それ以外の場合、このSubプロシージャを自動仕訳ウィザードで使用できません。²
Object 型の引数を定義することにより、両方の種類のアイテムを処理する1つのSubプロシージャを作成することはできません。³ 次の Outlook Visual Basic for Applications コードは、Subプロシージャの作成方法を示しています。⁴

Sub CustomMailMessageRule(Item As Outlook.MailItem)
   MsgBox "Mail message arrived: " & Item.Subject
End Sub

Sub CustomMeetingRequestRule(Item As Outlook.MeetingItem)
   MsgBox "Meeting request arrived: " & Item.Subject
End Sub

1. サブルーチンとなっているがSubプロシージャ ↩

2. 住所やNoteItemは不可。この2種類以外はできない。しかし会議出席依頼もMailItemの変種なので、事実上MailItemしか効かない ↩

3. `Sub CustomMailMeetingRule(oItem As Object)`のような記述は不可↩ ↩

4. メールや会議出席依頼（これもメールの一種）がきたときにメッセージボックスがポップアップして通知する↩ ↩