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

Скачать Рабочую тетрадь для практических занятий

Скачайте эту рабочую тетрадь для тренировок, чтобы заниматься во время чтения этой статьи.

2 удобных подхода к отправке электронной почты из списка Excel

Мы включили набор данных с именами некоторых людей, а также их электронными адресами и регистрационными номерами в приведенное ниже изображение. из Excel список, мы должны отправить электронную почту каждому человеку. Для этого мы будем использовать Mail Merge в Microsoft Word функция , затем VBA код для отправки электронных писем предпочитаемым лицам из существующего списка.

1. применение функции Mail Merge для отправки нескольких писем из списка Excel

⇒ Шаг 1: Откройте новый файл Word

• Откройте пустой Слово документ.
• Нажмите на Рассылки вкладка.
• Из Выберите получателей выберите Использование существующего списка вариант.

⇒ Шаг 2: Свяжите список Excel с файлом Word

• Выберите Excel файл, в котором вы создали список, и нажмите кнопку Открыть чтобы открыть файл.

• Выберите номер листа, на котором был написан список.
• Затем нажмите OK .

⇒ Шаг 3: Вставка полей

• Из Рассылки опцию, нажмите на Вставить поле слияния опцию для ввода полей, которые необходимо вставить.
• Во-первых, вставьте Имя поле, щелкнув по нему и в предпочтительном положении общей почты.

• Как показано на рисунке ниже, после добавления параметра Имя поле, оно будет отображаться как переменная имени каждого человека.

• Аналогично, поместите Рег поле в любом месте текстового сообщения.

• Поэтому он будет выглядеть так, как показано на рисунке ниже.

⇒ Шаг 4: Проверьте результаты предварительного просмотра

• Нажмите на Результаты предварительного просмотра чтобы увидеть окончательный вариант предварительного просмотра перед отправкой письма.
• На скриншоте ниже показано, как будет выглядеть образец письма.

⇒ Шаг 5: объединение писем

• Чтобы объединить письма, нажмите на кнопку Завершить & Объединить вариант.
• Чтобы открыть Слияние в электронную почту выберите Отправка сообщений электронной почты вариант.

• В поле Кому выберите Электронная почта вариант.
• Введите тему письма, которую вы предпочитаете, в поле Предметная линия коробка.
• Формат почты будет следующим HTML по умолчанию, поэтому вам не нужно его менять.
• В опции "Отправить записи" нажмите Все .
• Наконец, нажмите на OK для одновременной отправки писем нескольким получателям.

• Следовательно, все электронные письма будут отправляться через связанный с вами Outlook Проверьте свой Outlook опция отправлено для подтверждения того, что электронная почта была отправлена.

• Открыв отправленное письмо, вы заметите, что каждое поле заполнено информацией о конкретном человеке.

Читать далее: Как автоматически отправить электронное письмо при выполнении условия в Excel

Похожие чтения

• Как отправить редактируемую электронную таблицу Excel по электронной почте (3 быстрых способа)
• [Решено]: Общая рабочая книга не отображается в Excel (с простыми шагами)
• Автоматическая отправка напоминаний по электронной почте из рабочего листа Excel с помощью VBA
• Как узнать, кто находится в общем файле Excel (с быстрыми шагами)
• Как включить общий доступ к рабочей книге в Excel

2. Запуск кода VBA для отправки писем из выбранного диапазона

С благословения VBA Вы можете создать программу для отправки электронной почты из Excel список с предпочтительным выбором диапазона. Для выполнения задания выполните описанные ниже шаги.

⇒ Шаг 1: Создайте модуль

• Чтобы открыть Макрос VBA , нажмите Альт + F11 .
• Нажмите на Вставка вкладка.
• Выберите Модуль опция для создания Модуль .

⇒ Шаг 2: Вставьте коды VBA

• В новом Модуль , вставьте следующее код VBA .

 #If VBA7 And Win64 Then 'Ptr используется для изменения операционной 32 бит на 64 бит Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal wnd As LongPtr, ByVal lpDirect As String, _ ByVal Parameters As String, ByVal File As String, ByVal Operation As String, _ ByVal nCmd As Long) As LongPtr #Else #End If Sub SendExcelListEMail() 'Объявляем переменные DimxMailAdd As String Dim xRegCode As String Dim xBody As String Dim xURLink As String Dim xRngCell As Range Dim xIntRg As Range Dim xSelectTxt As String Dim k As Integer Dim p As Double On Error Resume Next 'Выберите диапазон выбора адреса добавления xSelectTxt = ActiveWindow.RangeSelection.Address 'Создайте поле ввода для выбора диапазона Set xIntRg = Application.InputBox("Please Input Excel data range:","ExcelWIKI", xSelectTxt, , , , , , 8) 'Примените условие If для указания номеров столбцов для операции If xIntRg Is Nothing Then Exit Sub If xIntRg.Columns.Count 3 Then 'Покажите результат в msg-боксе за невыполнение условия MsgBox "Error with Region Selection, please confirm", , "ExcelWIKI" Exit Sub End If 'Примените цикл For для выполнения операции в каждой строке отдельно For k = 1 To xIntRg.Rows.Count' Соберите адрес электронной почты и установите в переменную xMailAdd = xIntRg.Cells(k, 2) ' Задайте тему письма xRegCode = "ExcelWIKI Registration No." ' Введите тело письма xBody = "" ' Вставьте имена в переменную xIntRg xBody = xBody & "Greetings " & xIntRg.Cells(k, 1) & "," & vbCrLf & vbCrLf xBody = xBody & "Here is your ExcelWIKI Registration No." ' ВставкаРегистрационный номер с переменной xIntRg xBody = xBody & xIntRg.Cells(k, 3).Text & "." & vbCrLf & vbCrLf xBody = xBody & "Мы очень рады вашему визиту на наш сайт, продолжайте поддерживать нас." & vbCrLf xBody = xBody & "ExcelWIKI Team" ' Определите пробелы с помощью (hex) xRegCode = Application.WorksheetFunction.Substitute(xRegCode, " ", "%20") xBody.Application.WorksheetFunction.Substitute(xBody, " ", "%20") ' Укажите замену возврата каретки на (hex) xBody = Application.WorksheetFunction.Substitute(xBody, vbCrLf, "%0D%0A") ' Создайте URL-ссылку xURLink = "mailto:" & xMailAdd & "?subject=" & xRegCode & "&body=" & xBody ' Используйте ссылку, чтобы начать рассылку ShellExecute 0&, vbNullString, xURLink, vbNullString,vbNullString, vbNormalFocus ' трехсекундный интервал для отправки нажатий Application.Wait (Now + TimeValue("0:00:03")) Application.SendKeys "%s" Next End Sub 

⇒ Шаг 3: Запустите программу

• Нажмите F5 чтобы запустить программу.
• Выберите диапазон в поле ввода.
• Нажмите OK для отправки электронных писем.

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

• Наконец, вы можете проверить отправленные электронные письма для подтверждения.

Читать далее: Как отправить электронное письмо при выполнении условий в Excel (3 простых способа)

Заключение

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

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

Мы Exceldemy Команда всегда быстро реагирует на ваши запросы.

Оставайтесь с нами и продолжайте учиться.