Note: The other languages of the website are Google-translated. Back to English

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

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

doc отправлять персонализированные электронные письма 1

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

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

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


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

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

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

doc отправлять персонализированные электронные письма 2

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

doc отправлять персонализированные электронные письма 3

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

doc отправлять персонализированные электронные письма 4

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

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

doc отправлять персонализированные электронные письма 5

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

doc отправлять персонализированные электронные письма 6

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

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

doc отправлять персонализированные электронные письма 7

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

(1.) Из к выпадающий список, пожалуйста, выберите Адрес электронной почты столбец;

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

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

doc отправлять персонализированные электронные письма 8

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


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

Работы С Нами Kutools for Excel's Отправить письма вы можете быстро отправлять персонализированные электронные письма нескольким получателям с разными вложениями из Excel через Outlook по мере необходимости. В то же время вы также можете отправить копию или скрытую копию сообщений определенному человеку.       Загрузите бесплатную пробную версию Kutools for Excel прямо сейчас!

doc отправлять персонализированные электронные письма 18 1


стрелка синий правый пузырь Отправляйте персонализированные массовые электронные письма в список из 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 нажмите клавишу для запуска этого кода, и появится диалоговое окно с напоминанием о выборе диапазона данных, который вы хотите использовать, см. снимок экрана:

doc отправлять персонализированные электронные письма 9

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

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


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

Если у вас есть Kutools for Excel, С его Отправить письма вы можете быстро отправлять персонализированные электронные письма нескольким получателям с разными вложениями по мере необходимости.

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

После установки Kutools for Excel, пожалуйста, сделайте так:

1. Нажмите Кутулс Плюс > Отправить письма, см. снимок экрана:

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

doc отправлять персонализированные электронные письма 9

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

doc отправлять персонализированные электронные письма 9

4. Затем введите текст сообщения в поле, как вам нужно, см. Снимок экрана:

doc отправлять персонализированные электронные письма 9

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

doc отправлять персонализированные электронные письма 9

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

doc отправлять персонализированные электронные письма 9

6, Наконец, нажмите Отправить кнопку для отправки писем, после завершения появится окно подсказки, напоминающее вам о статусе отправки. см. screesnhot:

doc отправлять персонализированные электронные письма 9

Нажмите Загрузить и бесплатную пробную версию Kutools for Excel прямо сейчас!


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

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

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

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


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

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (47)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Этот код работал очень хорошо, большое спасибо за это. Но у меня просто небольшие проблемы, я пытаюсь изменить код, чтобы заранее определить ячейки, которые я хочу принимать и отправлять по электронной почте, потому что я создал свой файл Excel. Я хотел бы переключить поле выбора для определенного массива ячеек. Пример: исправить все мои данные будут между A2: C6, поэтому, когда я запускаю макрос, мне не нужно выбирать его снова. Большое спасибо за все, что вы объяснили выше
Этот комментарий был сведен к минимуму модератором на сайте
Можете ли вы изменить код, чтобы прикрепить несколько файлов к электронной почте? Это было бы большим подспорьем. Заранее спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
можно ли добавить код, чтобы он также извлекал мою обычную подпись электронной почты? Кроме того, при выборе диапазона для отправки по электронной почте у меня фильтруется электронная таблица Excel, но когда я запускаю макрос, он также извлекает скрытые строки.
Этот комментарий был сведен к минимуму модератором на сайте
Я тоже хочу знать об этом!
Этот комментарий был сведен к минимуму модератором на сайте
как добавить cc в приведенный выше код
Этот комментарий был сведен к минимуму модератором на сайте
Замечательный способ

Мне просто нужно спросить вас о возможности каждый раз менять тему на основе электронной почты ??
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Азиз,
Когда вы применяете Kutools for Excel, это может помочь вам вставить темы на основе значений ячеек, вам просто нужно выбрать заголовок столбца темы в диалоговом окне, как показано на следующем снимке экрана:

Пожалуйста, попробуйте, надеюсь, это поможет вам!
Этот комментарий был сведен к минимуму модератором на сайте
Привет Скайанг,

Я пытался и пытался получить свою подпись электронной почты, но просто не могу понять это правильно! У вас есть немного кода, который я могу добавить, чтобы это произошло?
Этот комментарий был сведен к минимуму модератором на сайте
Пост безумия, это фейк, не верьте этому контенту
Этот комментарий был сведен к минимуму модератором на сайте
Привет, друг,
это фантастика, нужна помощь. Мне нужно каждый раз прикреплять разные PDF-файлы к разным электронным письмам.
Кто-нибудь может мне помочь?
Этот комментарий был сведен к минимуму модератором на сайте
привет Скайян,
мне нужно прикрепить разные файлы PDF для каждого письма. можете помочь пожалуйста??
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Арвинд,
Kutools может помочь вам добавить несколько разных вложений при отправке электронных писем.
Сначала вы должны вставить путь к вложениям в ячейки, а затем применить Kutools, просмотрите следующий снимок экрана:
Надеюсь, это поможет вам, спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
привет Скайян,
я использовал ваш приведенный ниже код для отправки почты и работает отлично, есть ли что-нибудь, что вы можете помочь мне изменить в коде для отправки вложений в формате PDF.
Мне нужно отправить более 100 писем, поэтому каждый раз сложно прикреплять файл. Kutools работает по заданному пути и автоматически отправляет почту?
Этот комментарий был сведен к минимуму модератором на сайте
Привет,
Вы можете помочь мне с функцией attachment.add? с вашим вышеуказанным кодом VBA мне нужно отправить вложение.
я не могу использовать Kutools :(
Этот комментарий был сведен к минимуму модератором на сайте
как копировать людей в этом?
Этот комментарий был сведен к минимуму модератором на сайте
что, если у меня есть данные для многих клиентов, а у некоторых клиентов более 1 данных ... и я не хочу отправлять клиентам отдельные письма, но, возможно, отправлю их в табличном формате по электронной почте. Как я могу отправить только 1 письмо клиенту.
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Стивен, ты нашел способ сделать это? Мы можем помочь вам с простым онлайн-порталом
Этот комментарий был сведен к минимуму модератором на сайте
Привет, ты решил это?
Этот комментарий был сведен к минимуму модератором на сайте
Я хочу знать, как это сделать. Можешь сказать мне?
Этот комментарий был сведен к минимуму модератором на сайте
Благодаря!!

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

Sub SendEm ()
Dim i As Integer, Mail_Object, Email_Subject, o As Variant, lr As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
Установите Mail_Object = CreateObject("Outlook.Application")
Для i = 2 To lr
С Mail_Object.CreateItem(o)
.Subject = Диапазон ("B" & i). Значение
.To = Диапазон ("A" & i). Значение

.Body = Диапазон ("C" & i). Значение
.attachments.Добавить (Листы ("Лист1"). Диапазон ("H" & i). Текст)
.attachments.Добавить (Листы ("Лист1"). Диапазон ("Я" и я). Текст)
.attachments.Добавить (Листы ("Лист1"). Диапазон ("J" и i). Текст)
.attachments.Добавить (Листы ("Лист1"). Диапазон ("K" и i). Текст)
.Послать

'.display 'отключить отображение и включить отправку для автоматической отправки
Конец с
Затем я
MsgBox "Электронная почта успешно отправлена", 64
Приложение.DisplayAlerts = False
Установите Mail_Object = Ничего
End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Привет, хиба,
Наши Kutools для отправки электронных писем Excel могут помочь вам решить вашу проблему. Пожалуйста, установите условия, как показано на следующем снимке экрана:
С помощью этой функции вы также можете применять функцию CC, BCC, а также вставлять несколько вложений.
Этот комментарий был сведен к минимуму модератором на сайте
привет админ


apakah metode ini bisa di lakukan pada word 2007 soalnya saya coba lakukan di file pdf nya tdk terkirim .. terimakasih
Этот комментарий был сведен к минимуму модератором на сайте
По какой-то причине этот код имеет его там, где он отправляет все остальные электронные письма в списке. Есть ли причина, по которой он не будет отправлять каждый? Я напрямую скопировал код, который был выше, и ничего не изменил
Этот комментарий был сведен к минимуму модератором на сайте
Код VBA работает хорошо, спасибо, но как добавить копию? Я пытался и не смог...
Этот комментарий был сведен к минимуму модератором на сайте
Код VBA работает хорошо, спасибо, но как добавить копию? Я пробовал с:


Dim xCc как строка
становятся
xCc = xRg.Cells(i, 9) (адрес указан в 9-м столбце)


и не удалось...
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Жан,

Для решения вашей проблемы примените приведенный ниже код: (Примечание: вы должны добавить столбец CC в столбец C)

#Если VBA7 и Win64, то
Private Declare Функция PtrSafe ShellExecute Lib "shell32.dll" Псевдоним "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
#Еще
Частная функция объявления ShellExecute Lib "shell32.dll" Псевдоним "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
#Конец, если
Sub SendEMail ()
Dim xEmail как строка
Dim xSubj как строка
Dim xMsg как строка
Dim xURL как строку
Dim i As Integer
Dim k как двойной
Dim xCell как диапазон
Dim xRg как диапазон
Dim xTxt как строка
Dim xCC как строка
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Установите xRg = Application.InputBox («Пожалуйста, выберите диапазон данных:», «Kutools для Excel», xTxt, , , , , 8)
Если xRg ничего не значит, выйдите из Sub
Если xRg.Columns.Count <> 4 Тогда
MsgBox «Ошибка регионального формата, проверьте», «Kutools for Excel»
Exit Sub
End If
Для i = 1 To xRg.Rows.Count
xEmail = xRg.Cells(i, 2)
xCC = xRg.Cells(i, 3)
xSubj = "Ваш регистрационный код"
xсообщение = ""
xMsg = xMsg & "Уважаемый" & xRg.Cells(i, 1) & "," & vbCrLf & vbCrLf
xMsg = xMsg & "Это ваш регистрационный код"
xMsg = xMsg & xRg.Cells(i, 4).Text & "." и вбКрЛф и вбКрЛф
xMsg = xMsg & "попробуйте, будем рады вашим отзывам!" & vbCrLf
xMsg = xMsg и "Скайян"
xSubj = Application.WorksheetFunction.Substitute(xSubj, " ", "%20")
xMsg = Application.WorksheetFunction.Substitute(xMsg, " ", "%20")
xMsg = Application.WorksheetFunction.Substitute(xMsg, vbCrLf, "%0D%0A")
xURL = "mailto:" & xEmail & "?cc=" & xCC & "&subject=" & xSubj & "&body=" & xMsg
ShellExecute 0&, vbNullString, xURL, vbNullString, vbNullString, vbNormalFocus
Application.Wait(Сейчас + TimeValue("0:00:02"))
Application.SendKeys "%s"
Далее
End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Я использовал вышеупомянутый код VBA в разделе «Отправить персонализированные массовые электронные письма в список из Excel с кодом VBA». Я хотел знать, могу ли я отправить электронное письмо определенным лицам, которым нужно уведомить, основываясь на том, что Excel говорит мне отправлять напоминания тем, у кого истекают контракты? Я не могу заставить Excel отправлять электронные письма, и я знаю это из-за самого кода. Может ли кто-нибудь помочь мне решить эту проблему?
Этот комментарий был сведен к минимуму модератором на сайте
Я хочу отправлять электронные письма с уникальной строкой темы, как я могу это сделать с помощью этого VBA?
Этот комментарий был сведен к минимуму модератором на сайте
Привет всем!

У меня есть список электронных писем на одном листе и черновик электронной почты на другом.
Мне нужен код для автоматической отправки черновика электронной почты с листа 2 всем 5 участникам в списке, представленном на листе 1.
Как только первые 5 писем будут отправлены, код должен пометить их как «Отправлено» в новом выделенном столбце, а затем подождать 60 секунд, прежде чем отправлять следующий набор из 5 электронных писем.
Код должен выполняться до конца всего списка.

Код может использовать Outlook для отправки писем из профиля по умолчанию в Outlook.

Пожалуйста помоги.

Дайте мне знать, если вам нужны дополнительные разъяснения
Здесь еще нет комментариев
Загрузить ещё
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL