Как отправить письмо из Word макросом VBA? Запуск Microsoft Outlook из Word

В Microsoft Word предусмотрена возможность отправить открытый документ вложением к письму. Например, в Word 2007, для отправки файла почтой необходимо нажать кнопку Office, зайти в меню "Отправить" и выбрать пункт "Электронная почта". В случае, если из Word требуется отправить не открытый документ, а какой-либо другой, то сделать это можно при помощи макроса.

Программный код макроса VBA для отправки сообщений через почтовый клиент 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