質問: 当方VBA初心者です。 職場で引き継がれてきたメールの下書き自動作成ツール(Excelマクロで作成)に、 「返信先の指定機能」(参考:https://www.helpforest.com/office/ol_config/ol010003.htm)を加えたいと考えております。 具体的には、Excelマクロ(oApp.CreateItem)でOutlookのアプリ上に生成したメール(差出人:自分)をOutlookで送信し、 受信者が「全員に返信」または「返信」を押した際、差出人宛ではなく強制的に別のメールアドレスになるようにしたいです。 大変恐れ入りますが、VBAの書き方がおわかりになる方がいれば、 ご教示いただけますと幸いです。
回答: > > MailItem.ReplyRecipients プロパティ (Outlook) > > > 以下の記述で設定できると思います。 ``` Const AlterReplyAddress = "teratail_Question_142635@example.com" Dim m As Outlook.MailItem '... 'https://msdn.microsoft.com/ja-jp/VBA/Outlook-VBA/articles/mailitem-replyrecipients-property-outlook Call m.ReplyRecipients.Add(AlterReplyAddress) ```