Як надіслати електронний лист в Outlook за допомогою VBA?

Оновлено: серпень 2021 р.; Застосовується до Microsoft Outlook 365 / 2019 / 2016

Ось замітка, яку ми отримали від читача.

Дякуємо за вашу дуже корисну допомогу з програмування Outlook. Мені цікаво, чи можете ви поділитися кодом, який допоможе автоматизувати надсилання електронної пошти в Outlook? Я знаю, що є кілька способів надсилання повторюваних повідомлень, але я спеціально зацікавлений у використанні VBA для цього завдання.

Дякую за запитання. Автоматичне надсилання електронних листів, здається, є одним з найбільш корисних і популярних завдань, які можна автоматизувати за допомогою VBA. Читайте далі, щоб отримати докладнішу інформацію та простий сценарій, щоб почати тут.

Написання VBA для надсилання електронних листів Outlook

У досить простому прикладі нижче ми розглянемо наступні кроки:

1. По-перше, ми використаємо об’єктну модель VBA Outlook для створення нового елемента електронної пошти.
2. Потім ми встановимо важливість повідомлення, одержувачів (розділених крапкою з комою), а також стиль і зміст основного тексту.
3. Потім ми відобразимо повідомлення у вашій програмі Microsoft Outlook.
4. Нарешті, ми відправимо його одержувачам.

Ось простий код VBA для автоматичного створення та надсилання простих електронних листів. Зауважте, що вам потрібно легко покращити цей сценарій, включивши в нього вкладені файли, завдання тощо, але давайте почнемо з дуже простого сценарію.

Sub SendMail()
Dim MyEmail As MailItem
Set MyEmail = Application.CreateItem(olMailItem)

With MyEmail
.To = ""
.Importance = olImportanceHigh
.Subject = ""
.Body = ""
.BodyFormat = olFormatHTML
.Display
End With

'I purposely commented the next line, uncomment it by removing the "'" sign to send your email.
' MyEmail.Send
End Sub

Ярлик макросу Outlook VBA

Можливо, ви захочете зв’язати код VBA, який ви щойно написали, з командною кнопкою в Outlook. Це дозволить вам легко запустити його з ярлика, розміщеного на стрічці Outlook.

Ось як це зробити:

1. Спочатку відкрийте Microsoft Outlook.
2. Натисніть «Файл», а потім виберіть «Параметри».
3. Тепер перейдіть і виберіть Налаштувати стрічку.
4. У розділі Налаштування стрічки ви помітите поле зі списком Виберіть команди.
5. Виберіть Макроси
6. Потім виберіть ваш щойно створений код VBA, у нашому випадку ім'я має бути SendMail.
7. Потім натисніть Додати, а потім ОК. За бажанням ви можете призначити піктограму своєму макросу.
8. Ваш макрос буде доступний на панелі інструментів швидкого доступу у верхній лівій частині програми Outlook.

Можливі проблеми з налаштуваннями макросу VBA

Можливо, для запуску макросів потрібно буде налаштувати параметри макросу Outlook. Якщо так, ось як це зробити.