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 (wallstreetmojo.com)
Установить ссылку на библиотеку Microsoft Office
Нам нужно отправлять электронные письма из Outlook. Поскольку Outlook является внешним объектом, первое, что нам нужно сделать, это установить ссылку на объект в «Библиотека объектов Microsoft Outlook 16.0».
- В VBA выберите «Инструменты» > «Ссылки».
- Теперь мы увидим библиотеку ссылок на объекты. В этом окне нам нужно установить ссылку на «Библиотека объектов Microsoft Outlook 16.0».
- После установки ссылки на объект нажмите Ok.
Теперь мы можем получить доступ к объекту Outlook в кодировке VBA.
13 простых шагов для отправки электронных писем из Excel
Написание кода для отправки электронного письма с вложением из Excel довольно сложно, но стоит потратить некоторое время.
Выполните следующие шаги, чтобы написать свое первое электронное письмо Excel макросExcel макросМакрос в Excel представляет собой серию инструкций в виде кода, который помогает автоматизировать ручные задачи, тем самым экономя время. Excel выполняет эти инструкции шаг за шагом для заданных данных. Например, его можно использовать для автоматизации повторяющихся задач, таких как суммирование, форматирование ячеек, копирование информации и т. д., тем самым быстро заменяя повторяющиеся операции несколькими щелчками мыши.
читать далее.
Шаг 1
Начать подпроцедура в VBAПодпроцедура в VBASUB в VBA — это процедура, которая содержит весь код, который автоматически дает оператор end sub, а средняя часть используется для кодирования. Оператор Sub может быть как общедоступным, так и частным, а имя подпроцедуры является обязательным в VBA.читать далее.
Код:
Sub SendEmail_Example1() End Sub
Шаг 2
Объявить переменную Outlook.Application
Код:
Dim EmailApp As Outlook.Application 'To refer to outlook application
Шаг 3
Вышеупомянутая переменная является объектной переменной. Нам нужно создать экземпляр нового объекта отдельно. Чтобы создать новый экземпляр внешнего объекта, ниже приведен код.
Код:
Set EmailApp = New Outlook.Application 'To launch outlook application
Шаг №4
Теперь, чтобы написать электронное письмо, мы объявляем еще одну переменную как «Outlook.MailItem».
Код:
Dim EmailItem As Outlook.MailItem 'To refer new outlook email
Шаг № 5
Чтобы запустить новое электронное письмо, нам нужно установить ссылку на нашу предыдущую переменную как CreateItem.
Код:
Set EmailItem = EmailApp.CreateItem(olMailItem) 'To launch new outlook email
Хорошо, теперь переменная «EmailApp» запустит аутлук, а в переменной «EmailItem» мы можем начать писать письмо.
Шаг № 6
Теперь нам нужно знать, какие элементы у нас есть при написании электронного письма. Прежде всего, нам нужно решить, кому мы отправляем электронное письмо. Итак, для этого нам нужно получить доступ к свойству «TO».
Шаг № 7
Введите идентификатор электронной почты получателя в двойных кавычках.
Код:
EmailItem.To = "Hi@gmail.com"
Шаг №8
После обращения к основному получателю, если вы хотите отправить кому-то копию в электронном письме, мы можем использовать свойство «CC».
Код:
EmailItem.CC = "hello@gmail.com"
Шаг №9
После CC мы также можем установить идентификатор электронной почты BCC.
Код:
EmailItem.BCC = "hhhh@gmail.com"
Шаг №10
Теперь нам нужно указать тему письма, которое мы отправляем.
Код:
EmailItem.Subject = "Test Email From Excel VBA"
Шаг №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
Шаг №12
Если мы хотим добавить вложение в качестве текущей книги, мы работаем над этим. Затем нам нужно использовать свойство вложений. Во-первых, объявите источник переменной как строку.
Код:
Dim Source As String
Затем в этой переменной напишите ThisWorkbook.FullName после тела электронной почты.
Код:
Source = ThisWorkbook.FullName
В этом коде VBA Эта рабочая тетрадь используется для текущей рабочей книги и .Полное имя используется для получения полного имени рабочего листа.
Затем напишите следующий код, чтобы прикрепить файл.
Код:
EmailItem.Attachments.Add Source
Шаг №13
Теперь, наконец, нам нужно отправить электронное письмо на указанные идентификаторы электронной почты. Это можно сделать с помощью метода «Отправить».
Код:
EmailItem.Send
Хорошо, мы закончили с частью кодирования.
Код:
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
Запустите приведенный выше код, и он отправит электронное письмо с указанным телом электронного письма с текущей книгой в качестве вложения.
УЗНАТЬ БОЛЬШЕ >>
