[Outlook VBA]リボンをクリックして返信先の指定(Reply-To:)を設定する


備忘メモ:Outlook VBAを使って返信先の指定(Reply-To:)を設定

説明

Outlookのメッセージ編集画面で「返信先の指定」(Reply-To:)を設定する際の、オプション
>返信先>返信先の指定にアドレス入力、の一連の操作が煩わしいので、リボン用のマクロを作成し、自動設定できるようにする。

動作確認環境

Microsoft® Outlook® 2016 MSO (16.0.13929.20206) 32 ビット

コード

Sub Set_Replyto()

    '登録されている返信先をいったんすべて削除
    Do While ActiveInspector.CurrentItem.ReplyRecipients.Count > 0
        ActiveInspector.CurrentItem.ReplyRecipients.Remove 1
    Loop

    '返信先アドレスを追加
    ActiveInspector.CurrentItem.ReplyRecipients.Add ("[email protected]")

End Sub