Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in
x
or
x
x
Register
x

or

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

locating and automatically change the From field to that email account no matter what email account you set as default in advance. If you want to always send a new email from specific email account no matter which account you are locating, the following tutorial can help you.

Always send a new email from specific account with VBA code

Kutools for Outlook: 100+ New Advanced Tools for Outlook.
Office Tab: Enable Tabbed Editing and Browsing in Office, Just Like Chrome, Firefox, IE 8/9/10.
Classic Menu: Bring Old Menus and Toolbars Back to Office 2007, 2010, 2013, 2016 and 2019.

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
    oMail.Display
End If
Next
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.

 

Recommended Productivity Tools

shot kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus tab 1180x121

Kutools for Outlook - More than 100 Advanced Functions for Outlook, Improve 70% Efficiency For you

  • Complicated and repeated operations can be done a one-time processing in seconds.
  • Forward multiple emails individually with one-click, and auto forward by rules.
  • Auto CC/BCC every sending email and easy for customizing rules, and auto reply without requiring exchange server.
  • Powerful junk emails filter, remove duplicate emails, reply with attachment, bunch of one-click operations, and so on...
  • 60-day unlimited free trial. 60-day money back guarantee. 2 years free upgrade and support. Buy once, use forever.
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.