Как отправить персонализированные массовые письма из Excel-списка получателей через Outlook?
Например, у меня есть следующий диапазон данных на листе, содержащий столбцы «Имя», «Адрес электронной почты» и «Регистрационный код». Сейчас я хочу отправить каждому адресату из столбца A сообщение с персонализированным приветствием и индивидуальным регистрационным кодом. Для решения этой задачи могут пригодиться следующие методы.
Отправка персонализированных массовых писем списку из Excel с помощью функции слияния почты
Отправка персонализированных массовых писем списку из Excel с помощью кода VBA
Отправка персонализированных массовых писем списку с разными вложениями с использованием Kutools для Excel
Отправка персонализированных массовых писем списку из Excel с помощью функции слияния почты
С помощью функции Слияние почты в Word вы можете быстро и легко справиться с этой задачей. Следуйте пошаговой инструкции ниже:
1.Создайте новый пустой документ Word и нажмите Рассылки > Выбрать получателей > Использовать существующий список. См. снимок экрана:
2. В окне Выбор источника данных выберите книгу, содержащую нужный вам диапазон данных, и нажмите кнопку Открыть, см. снимок экрана:
3. В появившемся диалоговом окне Выбор таблицы выберите лист с нужным вам диапазоном данных и нажмите кнопку ОК, см. снимок экрана:
4. Теперь шаблон электронного письма «Основной документ» связан со списком адресов. Вы можете редактировать текст сообщения и добавлять поля подстановки, чтобы указать, где в каждом письме будет отображаться уникальная информация.
(1.) Чтобы вставить индивидуальное имя для приветствия, нажмите Рассылки > Вставить поле слияния > Имя — после этого персонализированное имя будет добавлено в сообщение, а само название поля окажется заключённым в « ».
(2.) Продолжайте вводить текст сообщения и вставьте регистрационный код в нужное место — см. снимок экрана:
5. После составления сообщения вы можете нажать Предварительный просмотр результата на вкладке Рассылки, чтобы предварительно просмотреть электронные письма и внести изменения до завершения слияния.
6. Убедившись, что всё в порядке, вы можете отправить письма отдельным получателям. Для этого нажмите Рассылки > Завершить и объединить > Отправить сообщение электронной почты, см. снимок экрана:
7. В появившемся диалоговом окне Слияние в электронную почту выполните следующие действия:
(1.) В раскрывающемся списке Комувыберите столбец Адрес_электронной_почты;
(2.) Введите тему письма в поле Тема;
(3.) В разделе Отправить записи выберите Все.
8. Затем нажмите кнопку ОК, и письма будут немедленно отправлены отдельным получателям с их уникальными регистрационными кодами. После отправки проверьте Outlook, чтобы убедиться, что письма успешно доставлены.
Отправляйте персонализированные письма нескольким получателям с разными вложениями: С помощью функции Kutools для Excel «Отправка писем» вы можете мгновенно рассылать персонализированные электронные письма множеству получателей — каждому со своими вложениями — прямо из Excel через Outlook, когда это необходимо. При этом вы также можете добавить конкретного человека в копию (CC) или скрытую копию (Bcc).Скачайте и начните бесплатный пробный период Kutools для Excel прямо сейчас!
|
Отправка персонализированных массовых писем списку из 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, чтобы запустить этот код. Появится диалоговое окно с запросом на выбор нужного вам диапазона данных (см. снимок экрана):
4. Затем нажмите кнопку ОК, и письма с индивидуальными регистрационными кодами будут отправлены по отдельным адресам одно за другим. После отправки проверьте Outlook, чтобы убедиться, что письма успешно доставлены.
Примечание: В приведённом выше коде вы можете изменить тему или текст сообщения под свои нужды.
Отправка персонализированных массовых писем списку с разными вложениями с использованием Kutools для Excel
Если у вас установлен Kutools для Excel, вы можете быстро отправлять персонализированные письма нескольким получателям с разными вложениями — всё благодаря функции Отправка писем.
После установки Kutools для Excelвыполните следующие действия:
1. Нажмите KUTOOLS PLUS > Отправка писем, см. снимок экрана:
2. В диалоговом окне Отправка писем выберите нужный вам диапазон данных, затем укажите адреса получателей, вложения и тему по своему усмотрению (см. снимок экрана):
3. Чтобы вставить индивидуальные имена для приветствия, выберите Имя из раскрывающегося списка и нажмите Вставить заполнитель, чтобы добавить имена в сообщение (см. снимок экрана):
4. Затем введите текст сообщения в поле — как вам удобно, см. снимок экрана:
5. После завершения оформления текста письма выберите желаемый способ отправки: вы можете отправлять через Outlook или через указанный вами сервер — см. снимок экрана:
Примечание: Если вы хотите использовать другой сервер, нажмите Параметры SMTP, чтобы настроить режим отправки в соответствии с вашими требованиями (см. снимок экрана):
6. Наконец, нажмите кнопку Отправить, чтобы отправить письма. После завершения появится диалоговое окно с информацией о статусе отправки — см. снимок экрана:
Нажмите «Скачать и начать бесплатный пробный период Kutools для Excel» прямо сейчас!
Демонстрация: Отправка персонализированных массовых писем списку из Excel через Outlook
Связанная статья:
Как отправить письмо нескольким получателям из списка Excel через Outlook?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек