Как да изпратите имейл в 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. След това натиснете Добавяне и след това OK. По желание може да искате да зададете икона на вашия макрос.
8. Вашият макрос ще бъде наличен в лентата с инструменти за бърз достъп в горната лява част на приложението на Outlook.

Възможни проблеми с настройките на макросите на VBA

Може да се наложи настройките на вашите макроси в Outlook да бъдат настроени, за да стартирате макроси. Ако е така, ето как да направите това.