Windows 7 Forums
Welcome to Windows 7 Forums. Our forum is dedicated to helping you find support and solutions for any problems regarding your Windows 7 PC be it Dell, HP, Acer, Asus or a custom build. We also provide an extensive Windows 7 tutorial section that covers a wide range of tips and tricks.


Windows 7: Outlook 2010 - Always Send from Default Account

Outlook 2010 - Always Send from Default Account

How to Always Send New Email from Default Account in Outlook 2010
Published by tw33k
06 Dec 2010
Published by

How to Always Send New Email from Default Account in Outlook 2010


Outlook 2010 lacks a true default account when there are multiple accounts delivered to different pst files in the profile. Outlook uses the account assigned to the pst the folder is in for new messages, not the default account assigned in Account Settings.

Someone wrote a macro that gets around this (see here: Exchange Messaging Outlook August 19 2010) Problem with this is, if you have both imap and pop3 accounts, Outlook will use the pop3 not the “default” account.


This guide will show you how to create a “New Mail” button on Outlook’s Home tab which will always send from your default account.

In Outlook press Alt+F11and open ThisOutlookSession and paste in the following code:

Public Sub New_Mail()
Dim oAccount As Outlook.Account
Dim oMail As Outlook.MailItem
For Each oAccount In Application.Session.Accounts
If oAccount = "Name of Default Account" Then
Set oMail = Application.CreateItem(olMailItem)
oMail.SendUsingAccount = oAccount
oMail.Display
End If
Next
End Sub
Make sure you change the bold to the name of your default account




Outlook 2010 - Always Send from Default Account-1.png





1. Click File Save and close the VB window


2. Back in Outlook, click File Options Customize Ribbon


3. From the “Choose commands from” drop box select Macros



Outlook 2010 - Always Send from Default Account-2.png


4. Under Main Tabs click Home (Mail) and down the bottom click “New Group”

5. You can then click “Rename” and change the name

6. Click the macro in the left panel and “Add” to the New Group


Outlook 2010 - Always Send from Default Account-4.png


7. You can now click “Rename” and call it “New Mail” (or whatever you’d like)


Name:  3.PNG
Views: 35118
Size:  46.3 KB


8. Click OK and you’ll now see a “New Mail” button on the Outlook ribbon


Outlook 2010 - Always Send from Default Account-5.png



9. Now click File Options Trust Centre Trust Centre Settings Macro Settings and make sure “Notifications for all macros” is selected


Finished


Now when you want to send new mail from your default account just use this button
06 Jan 2011   #1
The Bergel

Windows 7 64 bit
 
 
Custom Buttons

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.


My System SpecsSystem Spec
18 Feb 2011   #2
wired64

Windwos 7 Pro x64
 
 
THANK YOU!!!!!!

TW33K, I don't know who you are, but thank you!

I've been bitten by the change in behaviour with Outlook 2010 with the default account that's used to send e-mail. This macro has brought back the functionality that I need.

I recognize that some may see the 2010 functionality as better, some may see it as worse, some may see it as a bug. In my eyes, I see it as a change and can understand why different people would want to see it behave differently. This Macro is extremely helpful!

With luck a future update to Outlook 2010 will provide options for how the behaviour works. Until then I have my new mail button that works as expected!

Cheers,
My System SpecsSystem Spec
12 May 2011   #3
elukS

Windows 7 Enterprise x64
 
 

Nice workaround, thank you
My System SpecsSystem Spec
.


21 Jul 2011   #4
paul1109

Windows 7 Home Premium 64 bit
 
 
Enable macros

Thank you. This worked! I do, however, get a message asking me to enable macros every time I open Outlook.
My System SpecsSystem Spec
21 Aug 2011   #5
denverdesktop

Windows 7 home 32
 
 
Great tweak

Why would I need to worry about the reply? Reply should default to account sent to, correct?
My System SpecsSystem Spec
17 Oct 2011   #6
Merdad

Windows 7 Ultimate x64
 
 
You are awesome, thanks!

Now, I have a beautiful menu--reply, reply all and forward--in my Ribbon.

I POP 13 accounts and I wished I could force default send.

Can those macros be associated with shortcut keys?
My System SpecsSystem Spec
10 Dec 2011   #7
barbarossa2241

windows 7 home premium 64bit
 
 

Hi,

Do these instructions apply to the 2007 version ?
My System SpecsSystem Spec
10 Dec 2011   #8
koolkat77

Microsoft Community Contributor Award Recipient

Windows 7 Home Premium 64Bit
 
 

Quote   Quote: Originally Posted by barbarossa2241 View Post
Hi,

Do these instructions apply to the 2007 version ?
yes, it is set to the default account by default
My System SpecsSystem Spec
10 Dec 2011   #9
barbarossa2241

windows 7 home premium 64bit
 
 

Quote   Quote: Originally Posted by koolkat77 View Post
Quote   Quote: Originally Posted by barbarossa2241 View Post
Hi,

Do these instructions apply to the 2007 version ?
yes, it is set to the default account by default
Thanks a lot. I do have Office 2010 but, did not install it yet.
My System SpecsSystem Spec
Comment

 Outlook 2010 - Always Send from Default Account




Tutorial Tools



Similar help and support threads for2: Outlook 2010 - Always Send from Default Account
Windows 7 Tutorial Category
"Only send" account i Outlook 2010? Microsoft Office
Outlook 2010 won't send - straight to outlook Microsoft Office
2010 Outlook won't send Browsers & Mail
Outlook Connector (Outlook 2010) Won't send/receive Browsers & Mail
Solved Outlook 2007 - Primary account cannot send mail to secondary Microsoft Office
Solved Outlook 2010 won't send Browsers & Mail
Outlook 2010 Won't Send Microsoft Office

Our Sites

Site Links

About Us

Find Us

Windows 7 Forums is an independent web site and has not been authorized, sponsored, or otherwise approved by Microsoft Corporation. "Windows 7" and related materials are trademarks of Microsoft Corp.

© Designer Media Ltd

All times are GMT -5. The time now is 11:30 AM.
Twitter Facebook Google+



Windows 7 Forums

Seven Forums Android App Seven Forums IOS App
  

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33