Skip to main content

How to always send a new email from specific account in Outlook?

Supposing you have created multiple email accounts in your Outlook, when sending an email in Outlook, the email account displayed in the From field depends on which account you are currently in. No matter which account you are currently in, you want to always send new emails from a specific email account, the following tutorial can help you, the method in this tutorial can help you.

Always send a new email from specific account with VBA code

Office Tab - Enable Tabbed Editing and Browsing in Microsoft Office, Making Work a Breeze
Kutools for Outlook - Boost Outlook with 100+ Advanced Features for Superior Efficiency
Boost your Outlook 2021 - 2010 or Outlook 365 with these advanced features. Enjoy a comprehensive 60-day free trial and elevate your email experience!

arrow blue right bubbleAlways send a new email from specific account with VBA code

This VBA code can help you easily send new emails from specific account in Outlook. Please do as follows.

1. Please press Alt + F11 to open the Microsoft Visual Basic for Applications dialog box.

2. Expand the Project1 > Microsoft Outlook Objects by double-clicking them. And then double click the ThisOutlookSession to open the VbaProject.OTM dialog box.

3. Copy and paste the below VBA code into the dialog box.

VBA: always send a new email from specific account.

Public Sub NewBySpecAccount()
Dim oAccount As Outlook.Account
Dim oMail As Outlook.MailItem
For Each oAccount In Application.Session.Accounts
If oAccount.DisplayName = "Your account name" Then
    Set oMail = Application.CreateItem(olMailItem)
    oMail.SendUsingAccount = oAccount
End If
End Sub

4. Now you need to change the “Your account name” to the email account that you want to always send new emails. See screenshot:

5. Then press F5 key on the keyboard to run the VBA code.

6. After running the VBA code, a new Message window will pop up, please compose your email and click Send button to send it.

Note: This VBA code have successfully tested in Outlook 2007, 2010 and 2013, but don’t execute in Exchange 2007 and 2010.


Best Office Productivity Tools

Kutools for Outlook - Over 100 Powerful Features to Supercharge Your Outlook

📧 Email Automation: Out of Office (Available for POP and IMAP)  /  Schedule Send Emails  /  Auto CC/BCC by Rules When Sending Email  /  Auto Forward (Advanced Rules)   /  Auto Add Greeting   /  Automatically Split Multi-Recipient Emails into Individual Messages ...

📨 Email Management: Easily Recall Emails  /  Block Scam Emails by Subjects and Others  /  Delete Duplicate Emails  /  Advanced Search  /  Consolidate Folders ...

📁 Attachments ProBatch Save  /  Batch Detach  /  Batch Compress  /  Auto Save   /  Auto Detach  /  Auto Compress ...

🌟 Interface Magic: 😊More Pretty and Cool Emojis   /  Boost Your Outlook Productivity with Tabbed Views  /  Minimize Outlook Instead of Closing ...

👍 One-click Wonders: Reply All with Incoming Attachments  /   Anti-Phishing Emails  /  🕘Show Sender's Time Zone ...

👩🏼‍🤝‍👩🏻 Contacts & Calendar: Batch Add Contacts From Selected Emails  /  Split a Contact Group to Individual Groups  /  Remove Birthday Reminders ...

Over 100 Features Await Your Exploration! Click Here to Discover More.

Read More       Free Download      Purchase



Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This code does not work if you have multiple Exchange accounts defined in your profile - pointing to different exchange servers.

In that case you need a variation on this code from Microsoft.
This comment was minimized by the moderator on the site
Hi, the "VBA: always send a new email from specific account." does not work. If you want to send email from Excel, you have to change Outlook settings. Outlook - File - Account settings. Here you have to prioritise different email and different datafiles you have access to besides your usual account (email). This will work even if Outlook is closed then. (W10, O365)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
Rate this post:
0   Characters
Suggested Locations