Как отправить электронное письмо в 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. Если да, то вот как это сделать.