如何始终从Outlook中的特定帐户发送新邮件？

Author: Siluvia Last Modified: 2025-05-07

假设您已经在Outlook中创建了多个邮件帐户，当在Outlook中发送邮件时，“发件人”字段中显示的邮件帐户取决于您当前所在的帐户。无论您当前在哪一个帐户中，您都希望始终从某个特定的邮件帐户发送新邮件，以下教程可以帮助您，本教程中的方法可以帮到您。

使用VBA代码始终从特定帐户发送新邮件

使用VBA代码始终从特定帐户发送新邮件

此VBA代码可以帮助您轻松地从Outlook中的特定帐户发送新邮件。请按照以下步骤操作。

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

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

steps of always sending a new email from specific account in outlook

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