Как отправлять персонализированные массовые электронные письма в список из Excel через Outlook?
Например, у меня есть следующий диапазон данных на листе, который содержит столбцы «Имя», «Адрес электронной почты», «Код регистрации», и теперь я хочу отправить сообщение с персонализированным приветствием и собственным кодом регистрации на отдельные адреса электронной почты в столбце A. Для решения этой проблемы вам могут помочь следующие методы.
Отправляйте персонализированные массовые электронные письма в список из Excel с кодом VBA
Отправляйте персонализированные массовые электронные письма в список с различными вложениями с помощью Kutools for Excel
Отправляйте персонализированные массовые электронные письма в список из Excel с функцией слияния писем
Со словом Слияние функцию, вы можете выполнить эту работу быстро и легко, выполните следующие действия шаг за шагом:
1. Запустите новый пустой документ Word и нажмите почтовые рассылки > Выберите получателей > Использовать существующий список, см. снимок экрана:
2. В Выберите источник данных в окне выберите книгу, которая включает диапазон данных, который вы хотите использовать, и щелкните Откройте кнопку, см. снимок экрана:
3. В ближайшие Выберите таблицу В диалоговом окне выберите рабочий лист с нужным диапазоном данных и нажмите OK кнопку, см. снимок экрана:
4. И основной документ сообщения электронной почты и ваш список адресов были связаны вместе, теперь вы можете редактировать текстовое сообщение и добавлять заполнители, которые указывают, где уникальная информация будет отображаться в каждом сообщении.
(1.) Чтобы вставить имя индивидуального приветствия, щелкните почтовые рассылки > Вставить поле слияния > Фамилия, персонализированное имя было вставлено в сообщение, а имя поля заключено в «».
(2.) Продолжайте вводить сообщение и вставьте Регистрационный код в нужное место, см. снимок экрана:
5. После составления сообщения вы можете нажать Предварительный просмотр результатов под Рассылка Вкладка для предварительного просмотра сообщений электронной почты и внесения изменений перед фактическим завершением слияния.
6. Убедившись в отсутствии проблем, вы можете отправить электронные письма отдельным получателям, пожалуйста, нажмите почтовые рассылки > Завершить и объединить > Отправить электронное сообщение, см. снимок экрана:
7. Затем в выскочившем Слить на электронную почту диалоговом окне выполните следующие операции:
(1.) Из к выпадающий список, пожалуйста, выберите Адрес электронной почты столбец;
(2.) Вы можете ввести тему в поле Тема текстовое поле строки;
(3.) Из Отправить записи раздел, выберите Все.
8, Затем нажмите OK, электронные письма сразу отправляются отдельным получателям с их собственным регистрационным кодом, после отправки электронных писем вы можете перейти в свой Outlook, чтобы убедиться, что электронные письма были отправлены успешно.
Отправляйте персонализированные электронные письма нескольким получателям с разными вложениями:
Доступно Kutools for Excel's Отправить письма вы можете быстро отправлять персонализированные электронные письма нескольким получателям с разными вложениями из Excel через Outlook по мере необходимости. В то же время вы также можете отправить копию или скрытую копию сообщений определенному человеку. Загрузите бесплатную пробную версию Kutools for 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, Затем нажмите OK , электронные письма будут отправлены на отдельные адреса с их индивидуальным регистрационным кодом один за другим, после отправки электронных писем вы можете перейти в свой Outlook, чтобы убедиться, что электронные письма были отправлены успешно.
Внимание: В приведенном выше коде вы можете изменить тему или текст сообщения по своему усмотрению.
Отправляйте персонализированные массовые электронные письма в список с различными вложениями с помощью Kutools for Excel
Если вы только что Kutools for Excel, С его Отправить письма вы можете быстро отправлять персонализированные электронные письма нескольким получателям с разными вложениями по мере необходимости.
Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней. |
После установки Kutools for Excel, пожалуйста, сделайте так:
1. Нажмите Кутулс Плюс > Отправить письма, см. снимок экрана:
2. В Отправить письма В диалоговом окне выберите диапазон данных, который вы хотите использовать, а затем укажите адреса получателей, вложения и тему по мере необходимости, см. снимок экрана:
3. В поле редактирования вставьте имена отдельных приветствий, выберите Фамилия из раскрывающегося списка, а затем щелкните Вставить заполнитель чтобы вставить имена в сообщение, см. снимок экрана:
4. Затем введите текст сообщения в поле, как вам нужно, см. Снимок экрана:
5. После завершения тела письма выберите желаемый режим отправки, вы можете отправить его с помощью Outlook или указанного сервера, см. Screesnhot:
Внимание: Если вы хотите использовать другой сервер, щелкните Настройки исходящего сервера чтобы установить собственный режим отправки, см. screesnhot:
6, Наконец, нажмите Отправить кнопку для отправки писем, после завершения появится окно подсказки, напоминающее вам о статусе отправки. см. screesnhot:
Нажмите Загрузить и бесплатную пробную версию Kutools for Excel прямо сейчас!
Демонстрация: отправка персонализированных массовых писем в список из Excel через Outlook
Связанная статья:
Как отправить электронное письмо нескольким получателям в списке из Excel через Outlook?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!