Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

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

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

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

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


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

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

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


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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

7, Затем в выскочил Слияние с E-mail в диалоговом окне выполните следующие действия:

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

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

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

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

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


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

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


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

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

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

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

1. Щелчок Предприятие > Отправить письма, см. снимок экрана:

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

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

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

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

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

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

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

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

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

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

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

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

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

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


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

Kutools for Excel: с более чем 200 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни. Скачать и бесплатно пробную версию!


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

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


Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

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

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

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Joshua Nichols · 10 hours ago
    I have use the aforementioned VBA code under "Send Personalized Mass Emails To A List From Excel with VBA Code". I wanted to know if I could send an email to certain individuals who need notifying based upon excel telling me to send reminders to those who have upcoming expiring contracts? I cannot get excel to send out the emails and I know its because of the code itself. Can someone please help me resolve this issue?
  • To post as a guest, your comment is unpublished.
    Jeanyves · 24 days ago
    VBA code works well, thanks, but how to add Cc? I tried and failed...
  • To post as a guest, your comment is unpublished.
    chris · 1 months ago
    For some reason this code has it where it sends every other email in the list. Is there a reason why it won't send each one? I directly copied the code that was above and didn't change anything
  • To post as a guest, your comment is unpublished.
    Ilham · 3 months ago
    HIi admin


    apakah metode ini bisa di lakukan pada word 2007 soalnya saya coba lakukan di file pdf nya tdk terkirim .. terimakasih
  • To post as a guest, your comment is unpublished.
    hiba · 11 months ago
    I have a list of email addresses in excel that i need to send emails to The subject and body are in cells besides the email address and i have the script below but i need to send 100 emails per 1 hour how i can please your support

    Sub SendEm()
    Dim i As Integer, Mail_Object, Email_Subject, o As Variant, lr As Long
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    Set Mail_Object = CreateObject("Outlook.Application")
    For i = 2 To lr
    With Mail_Object.CreateItem(o)
    .Subject = Range("B" & i).Value
    .To = Range("A" & i).Value

    .Body = Range("C" & i).Value
    .attachments.Add (Sheets("Sheet1").Range("H" & i).Text)
    .attachments.Add (Sheets("Sheet1").Range("I" & i).Text)
    .attachments.Add (Sheets("Sheet1").Range("J" & i).Text)
    .attachments.Add (Sheets("Sheet1").Range("K" & i).Text)
    .Send

    '.display 'disable display and enable send to send automatically
    End With
    Next i
    MsgBox "E-mail successfully sent", 64
    Application.DisplayAlerts = False
    Set Mail_Object = Nothing
    End Sub
    • To post as a guest, your comment is unpublished.
      skyyang · 10 months ago
      Hello, hiba,
      Our Kutools for Excel's Send Emails can help you to solve your problem. Please set the conditions as following screenshot shown:
      With this feature, you can also apply the CC, BCC feature, and you can insert multiple attachments as well.
  • To post as a guest, your comment is unpublished.
    Terrence · 1 years ago
    Thanks!!

    But I have trying to do the test and is nothing sending out to the emai. Also no error message.. May I know what happened?
  • To post as a guest, your comment is unpublished.
    steven · 1 years ago
    what if I have data for alot of customers and some customers have more then 1 data... and I dont want to send seperate mails to the customers, but maybe send it in a tabular format in the email. How can I send just 1 email to a customer.
    • To post as a guest, your comment is unpublished.
      Sally · 9 months ago
      I want to know how to make it. Can you tell me?
    • To post as a guest, your comment is unpublished.
      Pulkit · 1 years ago
      Hi Steven, did you find a way to get this done. We can help you with a simple online web portal
  • To post as a guest, your comment is unpublished.
    surajit sen · 1 years ago
    how to cc people in this?
  • To post as a guest, your comment is unpublished.
    Arvind Jadhav · 1 years ago
    hi Skyyang,
    i need to attach different pdf file for each mail. can you help please??
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hello, Arvind,
      The Kutools can help you to add multiple different attachments when sending emails.
      First you should insert the path of the attachments into the cells, and then apply the Kutools, please view the following screenshot:
      Hope it can help you, thank you!
      • To post as a guest, your comment is unpublished.
        Arvind Jadhav · 1 years ago
        hi Skyyang,
        i used your below code to send mail and is working perfect, is there anything you can help me to modify in code for sending pdf attachments along.
        i need to send more than 100 mails so is quit difficult to attach file each time. is Kutools work as per given path and send mail automatically?
        • To post as a guest, your comment is unpublished.
          Arvind Jadhav · 1 years ago
          hey,
          can you help me with attachment.add function? with your above VBA code i need to sent attachment.
          i cant use Kutools :(
  • To post as a guest, your comment is unpublished.
    Arvind · 1 years ago
    hi Friend,
    this is fantastic, need one help I need to attach different pdf file to different email each time.
    can anyone help me please?
  • To post as a guest, your comment is unpublished.
    Nagu · 1 years ago
    Madness post this is,this one is fake and don't believe this content
  • To post as a guest, your comment is unpublished.
    jimmi_10 · 1 years ago
    Hi Skyyang,

    I've been trying and trying to get my email signature to come up but just can't seem to get it right! Do you have a bit of code I can add to make this happen?
  • To post as a guest, your comment is unpublished.
    Aziz · 1 years ago
    Great way

    I just need to ask you about the possibilityof changing the subject each time based on email??
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hello, Aziz,
      When you apply the Kutools for Excel, it can help you to insert the subjects based on the cell values, you just need to select the subject column header in the dialog box as following screenshot shown:

      Please try it, hope it can help you!
  • To post as a guest, your comment is unpublished.
    Marlyon Claudius · 2 years ago
    how to add cc in the above code
  • To post as a guest, your comment is unpublished.
    Rick · 2 years ago
    is it possible to add code so that it also pulls in my normal email signature?

    also, when selecting my range to email, I have my excel spreadsheet filtered, but when I run the macro, it still pulls in the hidden rows as well.
  • To post as a guest, your comment is unpublished.
    Wahid Prince · 2 years ago
    Can you modify the code to attach multiple files in email? It would be a great help. Thanks in advance.
  • To post as a guest, your comment is unpublished.
    Luucas · 2 years ago
    This code worked very well, much thanks of that. But I just have a small problems, I am trying to change the code to pre-determine the cells I want to take the emails and send it because the way I created my excel file. I would like to switch the selection box for a determined array of cells. Example: fix all my data will be between A2:C6 so when I run the macro I do not need to select it again. Very Much Thank You for everything you explained above