#備忘メモ: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