Outlook 2010 - Always Send from Default Account

Thanks for the code that made a big difference for me.

Is there a way to write a macro to add to this that will add a default signature to the macro button when you press reply? Thanks!

The code worked great for me! However i do have a questions. When i use the Reply All button it sends the e-mail to my new default account. Is there a way to stop that? Also, where do i find the option to customize the ribbon on the message screen to customize the buttons there as well?
Thanks for your help!

Doesn't work. I followed the directions to the letter, and got an icon on the toolbar as predicted, but clicking on it gets no response, even with macros enabled, &c. I'm running Outlook 2010 under Windows 7, both with SP1 installed. I've tried every way to get me "Send From" to default to my IMAP account, but in always defaults to my POP3 account, no matter what my settings are or how many subterfuges I try, including this one.

The Bergel said:

Took your idea one step further and created custom Reply, Reply All and Forward buttons.

In Outlook:

1. Press alt + F11. This will open up the MS Visual Basic for Applications window.
a. This is where we’ll input the code for our custom Reply, Reply All and Forward buttons.
2. Expand the Project1 tree, then right click on the Microsoft Outlook Objects folder.
a. Chose Insert, then Module
b. This will create a Modules folder and a Module beneath it. Double click on that module
3. In the blank area copy and paste the following code (be sure to change “Account Name” to the Outlook account name for your Domain B. Keep the quotes:
Public Sub New_Mail()
Dim oAccount As Outlook.Account
Dim oMail As Outlook.MailItem
For Each oAccount In Application.Session.Accounts
If oAccount = "Account Name" Then
Set oMail = Application.ActiveExplorer.Selection(1).Reply
oMail.SendUsingAccount = oAccount
oMail.Display
End If
Next
End Sub
4. Click in the Name row in the Properties window on the left. Change Module1 (2,3, etc) to Reply.
5. Click on the Modules folder and do Insert then Module
a. This creates a new module. Double click and insert the following text
Public Sub New_Mail()
Dim oAccount As Outlook.Account
Dim oMail As Outlook.MailItem
For Each oAccount In Application.Session.Accounts
If oAccount = "Account Name" Then
Set oMail = Application.ActiveExplorer.Selection(1).ReplyAll
oMail.SendUsingAccount = oAccount
oMail.Display
End If
Next
End Sub
6. Click in the Name row in the Properties window on the left. Change Module1 (2,3, etc) to ReplyAll
7. Click on the Modules folder and do Insert then Module again (last time)
a. Double click and insert the following text
Public Sub New_Mail()
Dim oAccount As Outlook.Account
Dim oMail As Outlook.MailItem
For Each oAccount In Application.Session.Accounts
If oAccount = "Account Name" Then
Set oMail = Application.ActiveExplorer.Selection(1).Forward
oMail.SendUsingAccount = oAccount
oMail.Display
End If
Next
End Sub
8. Go to File and Save VbaProjectOTM
a. Go to File and click Close and return to Microsoft Outlook
9. Now we’ll add the actual buttons to our ribbon. You’ll need to do these steps for your main ribbon (seen in the Inbox) and the ribbon you see when you open a new mail message.
10. Go to File, then Options, Customize Ribbon.
a. Click the dropdown for Choose commands from and click Macros
11. On the right side highlight Home(Mail) and click New Group at the bottom
a. Right click and chose Rename. Enter whatever name you like
b. Make sure this new folder is highlighted
12. On the left highlight each Macro (ex: Project1.Project1.Reply.New_Mail) and click Add
a. Continue until all three Macros are listed in the new folder on the right.
13. Right click on the first Macro and chose Rename
a. Pick a pretty icon and rename the Macro to the appropriate function (Reply for Reply, etc)
b. Optional: Right click the Respond folder and chose Remove to remove the original Reply, Forward, etc.
c. Continue with the other Macros then hit Ok
Your new buttons will now appear in the Ribbon and when clicked should give you messages with your Domain B listed as the sender.

Thank you for this code, works great from the outlook window. In addition to adding these buttons to the ribbon on my home screen I added them to the ribbon inside of an open mail. They work here as well, however, it replies to whichever message I have selected in the main outlook window, not the message I have open. For example, if I were to leave 3 separate emails open, go back to the first one and press reply, it replies to which ever message was last selected in my main outlook window.


I'd love to have this work from inside mail messages as well. I am trying to push this out to a client but am not sure it will be sufficient as is. Any idea how to make this work from inside mail?

Thanks again for the code!