vba - Outlook 2010 で返信を別のアドレスに変更する

Question

Outlook 2010 VBA コードを作成して、特定の電子メール アドレスに返信/全員に返信しようとしています。

Answer 1

私は Visual Basic プログラマーではありませんが、どこにも見つからなかったので、以下のマクロ コードをハックしました。自分でうまくいくのに何年もかかりました。おそらくベストプラクティスではありませんが、私にとってはうまくいきます。

インストールするには: Outlook のマクロに移動し、マクロ名を入力して [作成] をクリックします。私は「ChangeReplyAddrNoPrompt」と呼んでいました。次に、以下のコードを貼り付けます (作業コードは、Sub() と End Sub の間の行です。次に、VBA を保存して閉じます。

次に、新しいメッセージを開き、クイック アクセス メニューのカスタマイズをクリックして、[その他のコマンド] をクリックします。[コマンドの選択元] ドロップダウン メニューから [マクロ] を選択します。作成したマクロをクイック アクセス ツールバーに追加します。

幸運を！

Sub ChangeReplyAddrNoPrompt()
Dim mail As MailItem
Set mail = ActiveInspector.CurrentItem

mail.ReplyRecipients.Add ("email1@website.url")
mail.ReplyRecipients.Add ("email2@website.url")
mail.Recipients.ResolveAll

End Sub