Outlook 2010 - Always Send from Default Account

Here is some sample code that will work from within a mail item. To reply/reply all/forward from a specific account:

Code:

Public Sub SpecificAccountReply_InMailWindow()
    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
            Set oMail = ActiveInspector.CurrentItem.Reply
            oMail.SendUsingAccount = oAccount
            oMail.Display
        End If
    Next
End Sub

Public Sub SpecificAccountReplyAll_InMailWindow()
    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
            Set oMail = ActiveInspector.CurrentItem.ReplyAll
            oMail.SendUsingAccount = oAccount
            oMail.Display
        End If
    Next
End Sub

Public Sub SpecificAccountForward_InMailWindow()
    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
            Set oMail = ActiveInspector.CurrentItem.Forward
            oMail.SendUsingAccount = oAccount
            oMail.Display
        End If
    Next
End Sub

This code would need to be added as 3 different macros, in the same way as the above posts.

Hope this is helpful - I know that it is a year late!

After following all steps, it doesn't work!
Is it possible for shared accounts as well?

This VBA insert works pretty well, but I have an issue if I delete the new mail message I created. It gets stuck in the Outbox of the account from which I have set as "default".

Is there a way around this?

Update:
I found the answer. Get rid of the VBA code and do this instead:

In Outlook 2013, the key is:
HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Outlook\Options\Mail DWORD value: NewItemsUseDefaultSendingAccount Value: 1 In my case, the key "Mail" did not exist so I had to add it, along with the DWORD.
Works great now and doesn't leave any discarded messages sitting in the Outbox.

OK, i tried this and it works as far as I can see. Great!

It would for me be perfect if I also could set a specific email adress in CC when I click any of the custom buttons.

I use my default account and it is not always that I want to have this adress in CC, only when I respond to emails sent through a secondary account. So having both the ordinary reply button and the custom reply is perfect. And it would be fantastic if it also could set a CC email adress.

Is there anyone that could help me modify the macros to do that?