Перейти к содержимому

Как отправить персонализированные массовые электронные письма из списка в Excel через Outlook?

Author: Xiaoyang Last Modified: 2025-06-05

Например, у меня есть следующий диапазон данных на листе, который содержит столбцы Имя, Адрес электронной почты и Регистрационный код, и теперь я хочу отправить сообщение с персонализированным приветствием и их собственным регистрационным кодом на отдельные адреса электронной почты в столбце A. Для решения этой проблемы могут помочь следующие методы.

a screenshot of the mailing list in worksheet

Отправка персонализированных массовых электронных писем из списка в Excel с помощью функции слияния почты

Отправка персонализированных массовых электронных писем из списка в Excel с помощью кода VBA

Отправка персонализированных массовых электронных писем со списком различных вложений с использованием Kutools для Excel


Отправка персонализированных массовых электронных писем из списка в Excel с помощью функции слияния почты

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

1. Откройте новый пустой документ Word, затем нажмите Почта → Выбрать получателей → Использовать существующий список, см. скриншот:

a screenshot of selecting recipients use an existing list

2. В окне выбора источника данных выберите книгу, которая содержит диапазон данных, который вы хотите использовать, и нажмите кнопку Открыть, см. скриншот:

a screenshot of selecting a workbook

3. В появившемся диалоговом окне выбора таблицы выберите лист с нужным диапазоном данных, а затем нажмите кнопку ОК, см. скриншот:

a screenshot of selecting the corresponding worksheet that containing the mailing list

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

(1.) Чтобы вставить индивидуальное имя приветствия, нажмите ПочтаВставить поле слияния Имя, персонализированное имя будет вставлено в сообщение, и имя поля будет окружено символами « ».

a screenshot of inserting a merged Name field

(2.) Продолжайте набирать свое сообщение и вставьте регистрационный код туда, где вам это нужно, см. скриншот:

a screenshot of inserting the Registration Code

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

6. Убедившись, что проблем нет, вы можете отправить электронные письма отдельным получателям, пожалуйста, нажмите Почта → Завершить и слить → Отправить электронное письмо, см. скриншот:

a screenshot of selecting Send Email Messages

7. Затем в появившемся диалоговом окне Слияние в электронную почту выполните следующие действия:

(1.) Из выпадающего списка Кому выберите столбец Email_Address;

(2.) Вы можете ввести тему в текстовое поле строки Тема;

(3.) В разделе Отправить записи выберите Все.

a screenshot of configuring the Merge to E-mail dialog box

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


Отправка персонализированных писем нескольким получателям с разными вложениями:

С помощью функции Send Emails из Kutools для Excel вы можете быстро отправлять персонализированные письма нескольким получателям с разными вложениями из Excel через Outlook по мере необходимости. Одновременно вы можете копировать или скрыто копировать сообщения определенному лицу.       Скачайте и попробуйте бесплатно Kutools для Excel прямо сейчас!

a screenshot of using Kutools for Excel to send personalized emails to multiple recipients easily


Отправка персонализированных массовых электронных писем из списка в Excel с помощью кода VBA

Помимо функции слияния почты, следующий код VBA также может помочь вам, сделайте следующее:

1. Удерживайте клавиши ALT + F11, и откроется окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модуль и вставьте следующий код в окно модуля.

Код VBA: Отправка персонализированных массовых электронных писем из списка в Excel:

#If VBA7 And Win64 Then
    Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                         ByVal hwnd As LongPtr, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As LongPtr
#Else
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                         ByVal hwnd As Long, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As Long
#End If
Sub SendEMail()
'update by Extendoffice 20160506
    Dim xEmail As String
    Dim xSubj As String
    Dim xMsg As String
    Dim xURL As String
    Dim i As Integer
    Dim k As Double
    Dim xCell As Range
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count <> 3 Then
        MsgBox " Regional format error, please check", , "Kutools for Excel"
        Exit Sub
    End If
    For i = 1 To xRg.Rows.Count
'       Get the email address
        xEmail = xRg.Cells(i, 2)
'       Message subject
        xSubj = "Your Registration Code"
'       Compose the message
        xMsg = ""
        xMsg = xMsg & "Dear " & xRg.Cells(i, 1) & "," & vbCrLf & vbCrLf
        xMsg = xMsg & " This is your Registration Code "
        xMsg = xMsg & xRg.Cells(i, 3).Text & "." & vbCrLf & vbCrLf
        xMsg = xMsg & " please try it, and glad to get your feedback! " & vbCrLf
        xMsg = xMsg & "Skyyang"
'       Replace spaces with %20 (hex)
        xSubj = Application.WorksheetFunction.Substitute(xSubj, " ", "%20")
        xMsg = Application.WorksheetFunction.Substitute(xMsg, " ", "%20")
'       Replace carriage returns with %0D%0A (hex)
        xMsg = Application.WorksheetFunction.Substitute(xMsg, vbCrLf, "%0D%0A")
'       Create the URL
        xURL = "mailto:" & xEmail & "?subject=" & xSubj & "&body=" & xMsg
'       Execute the URL (start the email client)
        ShellExecute 0&, vbNullString, xURL, vbNullString, vbNullString, vbNormalFocus
'       Wait two seconds before sending keystrokes
        Application.Wait (Now + TimeValue("0:00:02"))
        Application.SendKeys "%s"
    Next
End Sub

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

a screenshot of selecting the mailing list after running the code

4. Затем нажмите кнопку ОК, электронные письма будут отправлены на отдельные адреса с их индивидуальным регистрационным кодом один за другим, после отправки электронных писем вы можете перейти в свой Outlook, чтобы убедиться, что письма были успешно отправлены.

Примечание: В приведенном выше коде вы можете изменить тему или текст сообщения по своему усмотрению.


Отправка персонализированных массовых электронных писем со списком различных вложений с использованием Kutools для Excel

Если у вас есть Kutools для Excel, с его функцией Send Emails вы можете быстро отправлять персонализированные письма нескольким получателям с разными вложениями по мере необходимости.

После установки Kutools для Excel сделайте следующее:

1. Нажмите Kutools Plus > Send Emails, см. скриншот:

a screenshot of enabling the Send Emails feature

2. В диалоговом окне Send Emials выберите диапазон данных, который вы хотите использовать, а затем укажите адреса получателей, вложения и тему по мере необходимости, см. скриншот:

a screenshot of setting the mail fields

3. В поле редактирования вставьте индивидуальные имена приветствия, выберите Имя из выпадающего списка, а затем нажмите Вставить заполнитель , чтобы вставить имена в сообщение, см. скриншот:

a screenshot of inserting placeholder

4. Затем введите текст сообщения в поле по мере необходимости, см. скриншот:

a screenshot of finishing the email body

5. После завершения тела письма выберите режим отправки по вашему желанию, вы можете отправить, используя Outlook или ваш указанный сервер, см. скриншот:

a screenshot of choosing one of the send modes

Примечание:  Если вы хотите использовать другой сервер, нажмите Параметры исходящего сервера, чтобы настроить режим отправки на свой собственный, см. скриншот:

a screenshot of configuring the Outgoing Server if you want to send emails through that email server

6. В конце нажмите кнопку Отправить, чтобы отправить электронные письма, после завершения появится всплывающее окно, напоминающее о статусе отправки. см. скриншот:

a screenshot shows the number of emails successfully sent

Нажмите Скачать и попробовать бесплатно Kutools для Excel прямо сейчас!


Демонстрация: Отправка персонализированных массовых электронных писем из списка в Excel через Outlook

 
Kutools для Excel: более 300 удобных надстроек для Excel, бесплатно попробуйте без ограничений в течение 30 дней. Скачайте и попробуйте бесплатно прямо сейчас!

Связанная статья:

Как отправить электронное письмо нескольким получателям из списка в Excel через Outlook?


Лучшие инструменты для повышения продуктивности работы с Office

🤖 Kutools AI Aide: Совершенно новый подход к анализу данных на основе: Интеллектуальное выполнение |  Генерация кода  |  Создание пользовательских формул |  Анализ данных и построение диаграмм  |  Вызов Расширенных функций Kutools
Популярные функции: Найти, выделить или отметить дубликаты | Удалить пустые строки | Объединить столбцы или ячейки без потери данных |   Округлить без формулы ...
Супер ПОИСК: VLOOKUP по нескольким критериям | VLOOKUP с несколькими значениями | Многолистовой поиск | Распознавание нечетких соответствий ....
Расширенный раскрывающийся список: Быстро создать раскрывающийся список | Зависимый раскрывающийся список | Множественный выбор в раскрывающемся списке ....
Менеджер столбцов: Добавить определённое количество столбцов | Переместить столбцы | Переключить видимость скрытых столбцов | Сравнить диапазоны и столбцы ...
Избранные функции: Сетка фокусировки | Дизайн листа | Улучшенная строка формулы | Управление книгами и листами | Библиотека автотекста | Выбор даты | Объединить данные | Шифрование/расшифровка ячеек | Отправить письмо по списку | Супер фильтр | Специальный фильтр (фильтр ячеек с жирным/курсивом/зачёркнутым...) ...
Топ-15 наборов инструментов:12 текстовых инструментов (Добавить текст, Удалить определенные символы, ...) |50+ типов диаграмм (Диаграмма Ганта, ...) |40+ практических формул (Расчет возраста на основе даты рождения, ...) |19 инструментов вставки (Вставить QR-код, Вставить изображение по пути, ...) |12 инструментов преобразования (Преобразовать в слова, Конвертация валюты, ...) |7 инструментов для объединения и разделения (Расширенное объединение строк, Разделить ячейки, ...) | ... и многое другое

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


Office Tab добавляет вкладки в Office и делает вашу работу намного проще

  • Включите редактирование и чтение с вкладками в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна, а не в отдельных окнах.
  • Увеличьте свою продуктивность на50% и сократите сотни лишних кликов мышью каждый день!