Коли вам потрібно надіслати масову розсилку великій групі людей, вам знадобиться автоматизований процес, який швидко впорається з повторюваними завданнями. Excel файл зі списком адрес є найпоширенішим способом масової розсилки. Отже, в цьому уроці ми покажемо вам, як відправити лист з файлу Excel автоматично розсилати список великій кількості людей.

Завантажити Практичний посібник

Завантажте цей практичний посібник, щоб потренуватися, поки ви читаєте цю статтю.

2 зручних підходи до надсилання електронних листів зі списку Excel

Ми включили набір даних з іменами деяких людей, а також їхніми електронними адресами та реєстраційними номерами на зображенні нижче. Excel Для цього ми повинні надіслати електронні листи кожній особі. Для цього ми будемо використовувати Об'єднання пошти в Microsoft Word функція після чого слідує VBA код для відправки листів обраним особам з наявного списку.

1. Застосування функції злиття пошти для надсилання кількох електронних листів зі списку Excel

⇒ Крок 1: Відкрийте новий файл Word

• Відкрийте бланк Слово документ.
• Натисніть на кнопку Поштові розсилки рахунок.
• Від Вибрати одержувачів виберіть опцію Використовуйте існуючий список варіант.

⇒ Крок 2: Зв'яжіть список Excel з файлом Word

• Виберіть пункт Excel файл, в якому ви створили список, і натисніть на кнопку Відкрито щоб відкрити файл.

• Виберіть номер аркуша, на якому ви написали список.
• Потім натисніть ГАРАЗД. .

⇒ Крок 3: Вставте поля

• Від Поштові розсилки натисніть на кнопку Вставити поле об'єднання опція для введення полів, які потрібно вставити.
• По-перше, вставте Ім'я та прізвище натиснувши на нього та у бажаній позиції загальної пошти.

• Як показано на зображенні нижче, після додавання Ім'я та прізвище буде відображати як змінну ім'я кожної особи.

• Аналогічним чином розмістіть Рег у будь-якому місці тексту повідомлення.

• Таким чином, він матиме такий вигляд, як показано нижче.

⇒ Крок 4: Перевірте результати попереднього перегляду

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

⇒ Крок 5: Об'єднайте електронні листи

• Щоб об'єднати листи, натисніть на кнопку Finish & Merge варіант.
• Для того, щоб відкрити Злиття на електронну пошту у вікні, виберіть пункт Відправка повідомлень по електронній пошті варіант.

• У полі "Кому" виберіть Електронна пошта варіант.
• Введіть тему листа, яку ви бажаєте, у поле Тема листа Ящик.
• Формат листа буде наступним HTML за замовчуванням, тому змінювати його не потрібно.
• В опції Надіслати записи натисніть на Всі .
• Нарешті, натисніть на ГАРАЗД. надсилати листи декільком адресатам одночасно.

• Таким чином, всі листи будуть надсилатися через асоційовану з вами електронну пошту Перспективи Перевірте свій Перспективи відправлено, щоб підтвердити, що електронні листи були відправлені.

• Коли ви відкриєте надісланий лист, ви побачите, що кожне поле заповнене інформацією про конкретну особу.

Читати далі: Як автоматично надсилати електронний лист при виконанні умови в Excel

Схожі читання

• Як відправити редаговану електронну таблицю Excel електронною поштою (3 швидких способи)
• [Вирішено]: Спільний доступ до книги, яка не відображається в Excel (з простими кроками)
• Автоматична відправка нагадувань з аркуша Excel за допомогою VBA
• Як побачити, хто знаходиться в спільному файлі Excel (з короткими кроками)
• Як увімкнути спільний доступ до книги в Excel

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

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

⇒ Крок 1: Створення модуля

• Для того, щоб відкрити Макрос VBA натисніть Alt + 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("Введіть діапазон даних Excel:","ExcelWIKI", xSelectTxt, , , , , 8) 'Застосувати умову If для вказівки номерів стовпців для операції If xIntRg Is Nothing Then Exit Sub If xIntRg.Columns.Count 3 Then 'Вивести результат в msg-бокс для невиконання умови MsgBox "Помилка з вибором регіону, підтвердіть", , "ExcelWIKI" Exit Sub End If 'Застосувати цикл For для виконання операції в кожному рядку окремо For k = 1 To xIntRg.Rows.Count' Збираємо адресу електронної пошти і встановлюємо в змінну xMailAdd = xIntRg.Cells(k, 2) ' Задаємо тему листа xRegCode = "Реєстраційний номер ExcelWIKI" ' Вводимо тіло листа xBody = "" ' Вставляємо імена змінною xIntRg xBody = xBody & "Вітаю " & xIntRg.Cells(k, 1) & "," & & vbCrLf & & vbCrLf xBody = xBody & "Ось Ваш реєстраційний номер ExcelWIKI" ' ВставляємоРеєстраційний номер зі змінною xIntRg xBody = xBody & xIntRg.Cells(k, 3).Text & "." & vbCrLf & vbCrLf xBody = xBody & "Ми дуже раді бачити Вас на нашому сайті, продовжуйте нас підтримувати." & vbCrLf xBody = xBody & "Команда ExcelWIKI" ' Визначити пробіли з (шістнадцятковим) 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 для запуску програми.
• Виберіть діапазон у полі введення.
• Натисніть ГАРАЗД. для відправки електронних листів.

• В результаті з'являться попередні перегляди відправлених листів, як показано на зображенні нижче.

• Нарешті, ви можете перевірити надіслані електронні листи для підтвердження.

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

Висновок

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

Якщо у Вас виникли запитання, будь ласка, звертайтеся до нас. Також не соромтеся залишати коментарі у розділі нижче.

Ми, представники Ексельдемія Team, завжди оперативно реагують на ваші запити.

Залишайтеся з нами і продовжуйте вчитися.