Excelマクロで生成したOutlookメールに差出人とは別の返信先を指定したい

Question

当方VBA初心者です。
職場で引き継がれてきたメールの下書き自動作成ツール（Excelマクロで作成）に、
「返信先の指定機能」（参考：https://www.helpforest.com/office/ol_config/ol010003.htm）を加えたいと考えております。

具体的には、Excelマクロ(oApp.CreateItem)でOutlookのアプリ上に生成したメール（差出人：自分）をOutlookで送信し、
受信者が「全員に返信」または「返信」を押した際、差出人宛ではなく強制的に別のメールアドレスになるようにしたいです。

大変恐れ入りますが、VBAの書き方がおわかりになる方がいれば、
ご教示いただけますと幸いです。

Comments

[otn]

VBEは開発ツールなので、VBAのこどですね。VBScriptは関係有りませんのでタグを外してください。

Answer 1

MailItem.ReplyRecipients プロパティ (Outlook)

以下の記述で設定できると思います。

Const AlterReplyAddress = "[e-mail]"

Dim m As Outlook.MailItem
'...
'https://msdn.microsoft.com/ja-jp/VBA/Outlook-VBA/articles/mailitem-replyrecipients-property-outlook
Call m.ReplyRecipients.Add(AlterReplyAddress)

Comments

[ngsk]

imihito様
ご回答いただきまことにありがとうございます。返信が遅れて申し訳ございません。
本件、解決いたしました。
丁寧にご教示いただき、ありがとうございました！

Answer 2

メール本文をExcelで作って、それをoutlookで送信するなら、Excel VBAの領域ではないですね。
OutlookのVBAであれば、こちらを参考にしつつ、reply-toヘッダを設定すればよさそうです。（未検証）

Comments

[ngsk]

momon-ga様
ご回答ありがとうございます。返信が遅れて申し訳ありません。
本件、ご指摘のとおりOutlookVBAで対応することいたしました。