#備忘メモ：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 ("myname@hoge.fuga")
    
End Sub