MyTetra Share
Делитесь знаниями!
Как отправить письмо из MS Outlook макросом VBA? Программная отправка письма в Outlook
16.03.2019
23:43
Текстовые метки: Outlook
Раздел: !Закладки - VBA - Outlook

Как отправить письмо из MS Outlook макросом VBA? Программная отправка письма в Outlook

Подробности

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

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

Ниже приведен программный код макроса VBA для приложения Microsoft Outlook, позволяющий отправить электронное письмо. Кроме того при отправке сообщений из Outlook макросом можно столкнуться с появлением сообщения следующего содержания "Программа пытается автоматически отправить сообщение от вашего имени. Разрешить это действие? Возможно, это свидетельствует о наличии вируса, и следует выбрать ответ "Нет".

Если при отправке письма макросом, написанным для Outlook, появляется подобное уведомление, это значит, что макросом создается еще одна сессия командой Set objOL = New Outlook.Application

Если инициализация приложения будет проводиться в пределах одной сессии, то предупреждение системы безопасности появляться не будет.

Sub SendMail()

    Dim objOL As Outlook.Application
    Dim objMail As MailItem
    Set objOL = Outlook.Application
    Set objMail = objOL.CreateItem(olMailItem)
        With objMail
            .To = "здесь указывается адрес получателя письма"
            .CC = "здесь указывается адрес получателя копии"
            .Body = "Текст письма"               'указывается текст письма
            .Subject = "Тема письма"             'указывается тема письма
            .Attachments.Add "C:\out\test.txt"   'указывается полный путь к файлу
            .Send
        End With
    Set objMail = Nothing
    Set objOL = Nothing
End Sub

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

Также, при помощи Microsoft Outlook, можно отправлять письма из приложения Excel.

Другие материалы по теме:

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования