VBA Отправить письмо из Excel

Код VBA для отправки писем из Excel

В VBA для отправки электронной почты из Excel мы можем автоматизировать нашу функцию рассылки, чтобы мы могли автоматически отправлять электронные письма нескольким пользователям одновременно, для этого нам нужно помнить, что это делается Outlook, другим продуктом Outlook, поэтому для этого нам нужно включить сценарии Outlook в VBA и как только это будет сделано, мы используем метод .Application для использования функций Outlook.

Универсальность VBA просто потрясающая. Причина, по которой программисты VBA любят Excel, заключается в том, что, используя VBA, мы можем работать не только в Excel. Скорее мы также можем получить доступ к другим инструментам Microsoft. Мы можем получить доступ к PowerPoint, Word и Outlook с помощью VBAOutlook с помощью VBAMicrosoft Outlook имеет ссылку VBA, которую можно использовать для управления Outlook. Это упрощает автоматизацию повторяющихся действий в Outlook. Чтобы использовать VBA в Outlook, вам необходимо включить функцию разработчика, как и в Excel.читать далее. Что меня впечатлило, так это то, что я услышал об «отправке электронной почты из самого Excel». Да, это правда. Мы можем отправлять электронные письма из Excel. В этой статье мы покажем вам, как отправлять электронные письма из Excel с вложениями. используя кодирование VBAИспользование кода VBAКод VBA относится к набору инструкций, написанных пользователем на языке программирования приложений Visual Basic в редакторе Visual Basic (VBE) для выполнения определенной задачи.читать далее.

VBA Отправить письмо из Excel

Вы можете использовать это изображение на своем веб-сайте, в шаблонах и т. д. Пожалуйста, предоставьте нам ссылку на авторствоКак предоставить атрибуцию?Ссылка на статью должна быть гиперссылкой
Например:
Источник: VBA Отправить электронную почту из Excel (wallstreetmojo.com)

Установить ссылку на библиотеку Microsoft Office

Нам нужно отправлять электронные письма из Outlook. Поскольку Outlook является внешним объектом, первое, что нам нужно сделать, это установить ссылку на объект в «Библиотека объектов Microsoft Outlook 16.0».

  1. В VBA выберите «Инструменты» > «Ссылки».

    vba отправить ссылки по электронной почте1

  2. Теперь мы увидим библиотеку ссылок на объекты. В этом окне нам нужно установить ссылку на «Библиотека объектов Microsoft Outlook 16.0».

    vba отправить ссылки по электронной почте1

  3. После установки ссылки на объект нажмите Ok.

Теперь мы можем получить доступ к объекту Outlook в кодировке VBA.

13 простых шагов для отправки электронных писем из Excel

Написание кода для отправки электронного письма с вложением из Excel довольно сложно, но стоит потратить некоторое время.

Вы можете скачать этот шаблон Excel для отправки электронной почты VBA здесь — Шаблон Excel для отправки электронной почты VBA

Выполните следующие шаги, чтобы написать свое первое электронное письмо Excel макросExcel макросМакрос в Excel представляет собой серию инструкций в виде кода, который помогает автоматизировать ручные задачи, тем самым экономя время. Excel выполняет эти инструкции шаг за шагом для заданных данных. Например, его можно использовать для автоматизации повторяющихся задач, таких как суммирование, форматирование ячеек, копирование информации и т. д., тем самым быстро заменяя повторяющиеся операции несколькими щелчками мыши.
читать далее
.

Шаг 1

Начать подпроцедура в VBAПодпроцедура в VBASUB в VBA — это процедура, которая содержит весь код, который автоматически дает оператор end sub, а средняя часть используется для кодирования. Оператор Sub может быть как общедоступным, так и частным, а имя подпроцедуры является обязательным в VBA.читать далее.

Код:

Sub SendEmail_Example1()

End Sub
Пример отправки электронной почты vba 1.1

Шаг 2

Объявить переменную Outlook.Application

Код:

Dim EmailApp As Outlook.Application 'To refer to outlook application
Пример отправки электронной почты vba 1.2

Шаг 3

Вышеупомянутая переменная является объектной переменной. Нам нужно создать экземпляр нового объекта отдельно. Чтобы создать новый экземпляр внешнего объекта, ниже приведен код.

Код:

Set EmailApp = New Outlook.Application 'To launch outlook application
Пример отправки электронной почты vba 1.3

Шаг №4

Теперь, чтобы написать электронное письмо, мы объявляем еще одну переменную как «Outlook.MailItem».

Код:

Dim EmailItem As Outlook.MailItem 'To refer new outlook email
Пример отправки электронной почты vba 1.4

Шаг № 5

Чтобы запустить новое электронное письмо, нам нужно установить ссылку на нашу предыдущую переменную как CreateItem.

Код:

Set EmailItem = EmailApp.CreateItem(olMailItem) 'To launch new outlook email
Пример отправки электронной почты vba 1.5

Хорошо, теперь переменная «EmailApp» запустит аутлук, а в переменной «EmailItem» мы можем начать писать письмо.

Шаг № 6

Теперь нам нужно знать, какие элементы у нас есть при написании электронного письма. Прежде всего, нам нужно решить, кому мы отправляем электронное письмо. Итак, для этого нам нужно получить доступ к свойству «TO».

Пример отправки электронной почты vba 1.6

Шаг № 7

Введите идентификатор электронной почты получателя в двойных кавычках.

Код:

EmailItem.To = "Hi@gmail.com"
Пример отправки электронной почты vba 1.7

Шаг №8

После обращения к основному получателю, если вы хотите отправить кому-то копию в электронном письме, мы можем использовать свойство «CC».

Код:

EmailItem.CC = "hello@gmail.com"
Пример отправки электронной почты vba 1.8

Шаг №9

После CC мы также можем установить идентификатор электронной почты BCC.

Код:

EmailItem.BCC = "hhhh@gmail.com"
vba отправить электронное письмо, пример 1.9

Шаг №10

Теперь нам нужно указать тему письма, которое мы отправляем.

Код:

EmailItem.Subject = "Test Email From Excel VBA"
пример 1.10

Шаг №11

Теперь нам нужно написать тело письма, используя тип HTML Body.

Код:

EmailItem.HTMLBody = "Hi," & vbNewLine & vbNewLine & "This is my first email from Excel" & _
                     vbNewLine & vbNewLine & _
                     "Regards," & vbNewLine & _
                     "VBA Coder" 'VbNewLine is the VBA Constant to insert a new line
пример 1.11

Шаг №12

Если мы хотим добавить вложение в качестве текущей книги, мы работаем над этим. Затем нам нужно использовать свойство вложений. Во-первых, объявите источник переменной как строку.

Код:

Dim Source As String
пример 1.14

Затем в этой переменной напишите ThisWorkbook.FullName после тела электронной почты.

Код:

Source = ThisWorkbook.FullName
пример 1.15

В этом коде VBA Эта рабочая тетрадь используется для текущей рабочей книги и .Полное имя используется для получения полного имени рабочего листа.

Затем напишите следующий код, чтобы прикрепить файл.

Код:

EmailItem.Attachments.Add Source
пример 1.16

Шаг №13

Теперь, наконец, нам нужно отправить электронное письмо на указанные идентификаторы электронной почты. Это можно сделать с помощью метода «Отправить».

Код:

EmailItem.Send
пример 1.17

Хорошо, мы закончили с частью кодирования.

Код:

Sub SendEmail_Example1()

Dim EmailApp As Outlook.Application
Dim Source As String
Set EmailApp = New Outlook.Application

Dim EmailItem As Outlook.MailItem
Set EmailItem = EmailApp.CreateItem(olMailItem)

EmailItem.To = "Hi@gmail.com"
EmailItem.CC = "hello@gmail.com"
EmailItem.BCC = "hhhh@gmail.com"
EmailItem.Subject = "Test Email From Excel VBA"
EmailItem.HTMLBody = "Hi," & vbNewLine & vbNewLine & "This is my first email from Excel" & _
vbNewLine & vbNewLine & _
"Regards," & vbNewLine & _
"VBA Coder"
Source = ThisWorkbook.FullName
EmailItem.Attachments.Add Source

EmailItem.Send

End Sub

Запустите приведенный выше код, и он отправит электронное письмо с указанным телом электронного письма с текущей книгой в качестве вложения.

Похожие записи

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *