Как отправить письмо из Excel макросом VBA? Программная рассылка писем из Excel через Outlook

Подробности

Категория: Макросы Excel

Опубликовано: 24 апреля 2013

Макрос VBA для отправки почтовых сообщений может быть полезен пользователям, адресные книги которых ведутся в рабочих книгах Excel, а также тем, кто занимается e-mail маркетингом. Ниже приведен программный код макроса, отправляющего электронное письмо через почтовый клиент MS Outlook.

Перед запуском макроса необходимо прописать существующие адреса электронной почты для полей "Кому" и "Копия" и указать путь к существующему файлу, который будет приложением к письму (либо закомментировать строку).

Макрос для отправки электронного письма

Sub SendMail()

    Dim objOL As Object

    Dim objMail As Object

    Set objOL = CreateObject("Outlook.Application")

    Set objMail = objOL.CreateItem(0)

        With objMail

            .To = "здесь указывается адрес получателя письма"

            .CC = "здесь указывается адрес получателя копии"

            .Body = "Текст письма"               'указывается текст письма

            .Subject = "Тема письма"             'указывается тема письма

            .Attachments.Add "C:\out\test.txt"   'указывается полный путь к файлу

            .Send

        End With

    Set objMail = Nothing

    Set objOL = Nothing

End Sub

Этот же макрос будет работать и при отправке письма из Word, а вот аналогичный макрос для MS Outlook.

Для того, чтобы перенести этот программный код на свой компьютер, наведите курсор мыши на поле с программным кодом, нажмите на одну из двух кнопкок  в правом верхнем углу этого поля, скопируйте программный код и вставьте его в модуль проекта на своем компьютере (подробнее о том, как сохранить программный код макроса).