0
0

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?

More than 3 years have passed since last update.

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

Last updated at Posted at 2021-05-20

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

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
0
0

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?