Як завжди надсилати нове повідомлення електронної пошти з певного облікового запису в Outlook?

Припустімо, що ви створили кілька облікових записів електронної пошти в Outlook, коли надсилаєте електронний лист у Outlook, обліковий запис електронної пошти, який відображається в полі «Від», залежить від того, який обліковий запис ви зараз використовуєте. Незалежно від того, який обліковий запис ви зараз використовуєте, ви хочете завжди надсилати нові електронні листи з певного облікового запису електронної пошти, наступний підручник може допомогти вам, метод у цьому підручнику може вам допомогти.

Завжди надсилайте нове повідомлення електронної пошти з певного облікового запису з кодом VBA

Завжди надсилайте нове повідомлення електронної пошти з певного облікового запису з кодом VBA

Цей код VBA може допомогти вам легко надсилати нові електронні листи з певного облікового запису в Outlook. Будь ласка, виконайте наступне.

1. Будь ласка, натисніть інший + F11 відкрити Microsoft Visual Basic для додатків діалогове вікно.

2. Розгорніть Project1 > Об'єкти Microsoft Outlook подвійним клацанням на них. А потім двічі клацніть на 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. Тепер вам потрібно змінити “Ім'я вашого облікового запису”На рахунок електронної пошти, за яким Ви хочете завжди надсилати нові електронні листи. Дивіться знімок екрана:

5. Потім натисніть F5 клавішу на клавіатурі для запуску коду VBA.

6. Після запуску коду VBA новий Повідомлення спливає вікно, будь ласка, складіть електронну пошту та натисніть Відправити кнопку, щоб надіслати його.

примітки: Цей код VBA успішно протестовано в Outlook 2007, 2010 та 2013, але не виконується в Exchange 2007 та 2010.

---

Найкращі інструменти продуктивності офісу

Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook

🤖 AI Mail Assistant: Миттєві професійні електронні листи з магією штучного інтелекту – геніальні відповіді одним клацанням, ідеальний тон, багатомовна майстерність. Трансформуйте електронну пошту без зусиль! ...

???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP)  /  Розклад надсилання електронних листів  /  Автоматична копія/прихована копія за правилами під час надсилання електронної пошти  /  Автоматичне пересилання (розширені правила)   /  Автоматично додавати привітання   /  Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...

📨 Управління електронною поштою: Легко відкликайте електронні листи  /  Блокуйте шахрайські електронні листи за темами та іншими  /  Видалити повторювані електронні листи  /  розширений пошук  /  Консолідація папок ...

📁 Вкладення Pro: Пакетне збереження  /  Пакетне від'єднання  /  Пакетний компрес  /  Автозавантаження   /  Автоматичне від'єднання  /  Автокомпресія ...

???? Магія інтерфейсу: 😊Більше красивих і класних смайликів   /  Підвищте продуктивність Outlook за допомогою вкладок  /  Згорніть Outlook замість того, щоб закривати ...

👍 Дива в один клік: Відповісти всім із вхідними вкладеннями  /   Антифішингові електронні листи  /  🕘Показувати часовий пояс відправника ...

👩🏼‍🤝‍👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів  /  Розділіть групу контактів на окремі групи  /  Видаліть нагадування про день народження ...

більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.

Детальніше       Безкоштовне завантаження      Купити