Как настроить Outlook так, чтобы новое письмо всегда отправлялось с определённой учётной записи?

Предположим, вы настроили в Outlook несколько почтовых учётных записей. При отправке письма учётная запись в поле «От кого» обычно определяется той, в которой вы сейчас работаете. Но что если вы хотите, чтобы все новые письма всегда отправлялись с одной конкретной учётной записи — независимо от текущей? Следующее руководство покажет вам, как этого добиться, и описанный метод действительно работает.

Всегда отправлять Новое письмо с определённой учётной записи с помощью кода VBA

---

Всегда отправлять Новое письмо с определённой учётной записи с помощью кода VBA

Этот код VBA упростит отправку нового письма с указанной учётной записи в Outlook. Выполните следующие действия.

1. Нажмите «Alt» + «F11», чтобы открыть окно Microsoft Visual Basic for Applications.

2. Разверните «Project1» > «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.