OUTLOOK2019でのスクリプト実行のルールでメールを転送したい

Question

現在ＯＵＴＬＯＯＫ２０１９を使用しており仕分けルールで、とある件名のメールを受信すると
新たに件名を変更して特定のアドレスにメールを転送するというスクリプトを実行したいと思っております。

以下は教わったＶＢＡコードで、頑張ってマクロの実行を試みているのですが普通に受信されるのみで
上手く動作しません。
仕分けルールをほかのアクションに設定するとそれは動作しますので
仕分けルールやレジストリの設定も特に問題無いと思っておりますが、もし疑う箇所に心当たりの
ある方、或いは他の方法があるのではないかと思われる方、どうかご教示頂けないでしょうか。

Public Sub ForwardWithFixedSubject(ByRef rcvMail As MailItem)
    Const FIXED_SUBJECT = "*新たな件名*"
    Const FORWARD_ADDRESS = "*[e-mail]*"
    Dim fwdMail As MailItem
    '
    Set fwdMail = rcvMail.Forward
    fwdMail.Subject = FIXED_SUBJECT
    fwdMail.To = FORWARD_ADDRESS
    fwdMail.Send
End Sub

Answer 1

VBAを利用できるのであれば、仕訳ルールにこだわらなくてもよい気がします。
OutlookVBAでは、メール受信時に処理を行うことができるので、それを利用されてはいかがでしょう。

以下、ご参考まで。

https://tonari-it.com/outlook-vba-outlookvbaapplicationnewmailex/

https://outlooklab.wordpress.com/2021/06/19/%e7%89%b9%e5%ae%9a%e3%81%ae%e6%96%87%e5%ad%97%e5%88%97%e3%82%92%e4%bb%b6%e5%90%8d%e3%82%84%e6%9c%ac%e6%96%87%e3%81%ab%e5%90%ab%e3%82%80%e3%83%a1%e3%83%bc%e3%83%ab%e3%82%92%e5%8f%97%e4%bf%a1%e3%81%97-2/

Comments

[RANDS_CHANP]

hex309様、有難うございます！
ご紹介頂いたサイトを参考にして、一度試してみたいと思います。
また不明点あればお尋ねさせて下さい。