如何在 Outlook 中始终使用指定账户发送新建邮件？

假如您在 Outlook 中配置了多个电子邮件帐户，发送邮件时，“发件人”字段会根据您当前所在的账户自动显示对应的邮箱。如果您希望无论当前处于哪个账户，新建邮件时都默认使用指定的电子邮件帐户发送，本教程将为您提供实现这一需求的方法。

使用 VBA 代码始终从指定账户发送新建邮件

---

使用 VBA 代码始终从指定账户发送新建邮件

此 VBA 代码可助您轻松通过 Outlook 指定账户发送新邮件。请按照以下步骤进行操作。

1. 请按下“Alt” + “F11”组合键，打开“Microsoft Visual Basic for Applications”对话框。

2. 双击展开“Project 1” > “Microsoft Outlook Objects”，然后双击“ThisOutlookSession”以打开“VbaProject.OTM”对话框。

3. 请将以下 VBA 代码复制并粘贴到对话框中。

VBA：始终使用指定账户发送新邮件。

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. 现在，您需要将“Your 用户名称”更改为您希望始终用于发送新邮件的电子邮件账户。

5. 接着，按下键盘上的“F5”键运行此 VBA 代码。

6. 运行 VBA 代码后，将弹出一个全新的“邮件”窗口，请在此窗口中撰写邮件内容，并点击“发送”按钮完成邮件发送。

注意：该 VBA 代码已在 Outlook 2007、2010 和 2013 中通过测试，但无法在 Exchange 2007 和 2010 上运行。