OUTLOOK2019で自動転送の際に件名を変更したい

Question

OUTLOOKの活用について色々ネット検索してみたのですが、条件に合ったものが見つからず
教えて頂きたく思います。

私はOUTLOOK2019を使用しており、「仕分けルールと通知」を利用して特定のメールを
自動転送しているものがあります。

当然ながら、この時に元々のメール内容のまま転送になりますが、件名を
あらかじめ決めておいたフレーズに変更して転送が出来ないかと思っております。

「仕分けルールと通知」のメニューだけでは出来そうにないので、ＶＢＡになるのかも
しれないのですが、もし方法をご存知な方いらっしゃいましたら教えて頂けないでしょうか。

Comments

[1T2R3M4]

OUTLOOKに関しては以下で質問してみてはいかがでしょうか。
https://answers.microsoft.com/en-us/outlook_com/forum

[RANDS_CHANP]

有難うございます。microsoft.comでは海外からの和訳で説明されどうしても理解し難い部分があったり、テクニカル サポート詐欺の記載が入ったりするため、戸惑っております。申し訳ございません。助けて頂けると幸いです。

Answer 1

本件について、millefeuille様より教わったVBA構文に特化した形で、新たな質問として別途投稿させて頂いたため、本質問としては一旦解決とさせて頂きました。

Answer 2

Outlook の仕分けルールの処理では固定の件名で転送することはできません。
以下のようなマクロを作成し、ルールの「スクリプトを実行する」でこのマクロを指定することで、固定の件名で転送することが可能です。
マクロの中の "転送通知" を固定の件名に、"[e-mail]" を転送先のメールアドレスに変更してください。

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

なお、「スクリプトを実行する」という処理を使用できるようにするには以下のレジストリ設定が必要となります。

キー: HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Outlook\Security
名前: EnableUnsafeClientMailRules
種類: REG_DWORD
値: 1

Comments

[RANDS_CHANP]

コード書いて頂き有難うございます！非常に嬉しいです。
この場合、特定条件のメールのみを転送するとすれば、その条件（ex.件名や送信主）はどこに設定すれば
宜しいでしょうか。

また「レジストリ設定」は触ったことが無いので少し詳しく教えて頂けますでしょうか。
設定方法など一度ネットで探してみたいと思いますが、設定による影響が大きそうなイメージが
ありまして、もしお気付きの範囲で素人が設定触る際のリスクや注意点など教えて頂けると幸いです。
勉強不足で大変恐縮です。

[millefeuille]

このマクロはルールの処理として実行するためのマクロなので、条件はルールで設定します。
例えば、件名に AAA が含まれるメールをこのマクロで転送する場合、以下のような手順でルールを作成することになります。

1. [仕分けルールと通知] で [新しい仕分けルール] をクリック
2. [受信メッセージにルールを適用する] を選択して [次へ] をクリック
3. 「[件名] に 特定の文字 が含まれる場合」 のチェックボックスをオン
4. [ステップ 2] の [特定の文字] をクリック
5. [件名] に含まれる文字に AAA と入力し、[追加] をクリック
6. [OK] をクリック
7. [次へ] をクリック
8. 「スクリプト を実行する」 のチェックボックスをオン
9. [ステップ 2] の [スクリプト] をクリック
10. [スクリプト] で "Project1.ThisOutlookSession.ForwardWithFixedSubject" を選択し、[OK] をクリック
11. [完了] をクリック

なお、レジストリ設定については、設定する場所を間違えなければそれほど影響はありません。
確かに重要なレジストリ設定を変更すると Windows が起動できなくなったりすることもあるのですが、指定されたレジストリ設定を追加したり変更したりするというだけなのであれば、問題はないでしょう。

[RANDS_CHANP]

有難うございます。一度じっくりやってみたいと思います。
また不明な点あればお尋ねさせて下さい。

[RANDS_CHANP]

ご丁寧に記載頂いており申し訳ございません。
チャレンジしてみておりますが、２つ問題がありました。
１つは上記ルール手順で8番目の「スクリプトを実行する」のチェックボックスが無いこと。
２つめはレジストリの設定で、\Securityの階層に記載頂いた名前のレジストリが見つかりませんでした。
少し調べてみようと思っておりますが、もし何かご存じであれば　ご教示頂けますでしょうか。

[RANDS_CHANP]

失礼しました。レジストリの設定の件ですが、\Securityの階層に「名前」と「種類」と「値」を記載頂いた通りに新規で作成してみました。
そしてOUTLOOKを再起動すると、上記の仕分けルールの手順で8番目の「スクリプトを実行する」のチェックボックスが出来ていました。
あとは、マクロが動くかチャレンジしておりますが、何故か転送されません。
上記記載頂いたVBAコードで、” ”内の赤文字を変更すると動くと思っているのですが、
ピクリとも実行されない状況です。何が考えられますでしょうか。