如何在 Outlook 中选择指定账户发送邮件？

在 Outlook 中，暂无内置功能可让您始终通过指定账户发送新邮件。您需要在撰写邮件时手动切换发件账户。实际上，借助 VBA 代码，您可以轻松解决这一问题。

使用 VBA 代码选择特定账户发送新建邮件
始终用默认电子邮件帐户通过 Kutools for Outlook 回复邮件

---

使用 VBA 代码选择特定账户发送新建邮件

以下 VBA 代码可帮助您在 Outlook 中始终通过指定账户发送新邮件。请按照以下步骤操作。

1. 按下 Alt+F11，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 在打开的窗口中，单击插入 > 模块，然后将以下 VBA 代码复制到模块窗口中。

VBA 代码：在 Outlook 中始终使用特定电子邮件帐户发送邮件

Public Sub NewBySpecAccount()
'Updated by ExtendOffice 20181130
Dim oAccount As Outlook.Account
Dim oMail As Outlook.MailItem
For Each oAccount In Application.Session.Accounts
If oAccount.DisplayName = "Your account address" Then
    Set oMail = Application.CreateItem(olMailItem)
    oMail.SendUsingAccount = oAccount
    oMail.Display
End If
Next
End Sub

注意：请将代码中的“您的账户地址”替换为您实际用于发送邮件的电子邮件账户。

3. 按下 Alt+Q 键，即可关闭 Microsoft Visual Basic for Applications 窗口。

4. 单击 自定义 Outlook 快速访问工具栏按钮，在下拉菜单中单击其他命令。见截图：

5. 在 Outlook 选项窗口中，您需要：

6. 现在，VBA 按钮已成功添加至快速访问工具栏。

从现在开始，无论您处于哪个账户，只需点击 Quick Access Toolbar 上的 VBA 按钮，即可打开新建邮件窗口，并在发件人字段显示指定的电子邮件账户。

---

始终用默认电子邮件帐户通过 Kutools for Outlook 回复邮件

如果您希望在 Outlook 中始终使用默认电子邮件帐户进行回复，建议您体验 Kutools for Outlook 的使用默认账号答复邮件工具。

1. 单击 Kutools > 选项。见截图：

2. 在选项窗口中，切换到回复选项卡，勾选使用默认账号答复邮件框，并单击确定即可完成设置。

从现在起，所有回复邮件都将通过您在 Outlook 中设定的默认账户发送。