Як надсилати персоналізовані масові електронні листи до списку з Excel за допомогою Outlook?

Наприклад, у мене на аркуші є такий діапазон даних, який містить стовпці Ім'я, Адреса електронної пошти, Реєстраційний код, і тепер я хочу надіслати повідомлення з персональним привітанням та власним Реєстраційним кодом до відокремлених Адрес електронної пошти у стовпці А. Щоб вирішити цю проблему, вам можуть допомогти такі методи.

Надсилайте персоналізовані електронні листи до списку з Excel за допомогою функції злиття

Надсилайте персоналізовані електронні листи до списку з Excel із кодом VBA

Надсилайте персоналізовані електронні листи до списку з різними вкладеннями за допомогою Kutools для Excel

Надсилайте персоналізовані електронні листи до списку з Excel за допомогою функції злиття

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

1. Запустіть новий порожній документ Word і натисніть поштові розсилки > Виберіть одержувачів > Використовуйте наявний список, див. скріншот:

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

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

4. А головний документ електронної пошти та ваш список адрес з'єднані разом, тепер ви можете редагувати текстове повідомлення та додавати заповнювачі, які вказують, де унікальна інформація відображатиметься в кожному повідомленні.

(1.) Щоб вставити індивідуальне ім’я привітання, натисніть поштові розсилки > Вставити поле злиття > Назва, персоналізоване ім'я було вставлено в повідомлення, а ім'я поля оточене «».

(2.) Продовжуйте вводити повідомлення та вставляйте Код реєстрації на потрібне місце, див. знімок екрана:

5. Після складання повідомлення ви можете клацнути Попередній перегляд результатів під Розсилка для попереднього перегляду повідомлень електронної пошти та внесення змін перед тим, як фактично завершити злиття.

6. Переконавшись, що у вас немає проблем, ви можете надіслати електронні листи окремим одержувачам, клацніть поштові розсилки > Finish & Merge > Надіслати повідомлення електронною поштою, див. скріншот:

7. Потім у вискочив Об’єднати в електронну пошту у діалоговому вікні виконайте такі операції:

(1.) З До випадаючий список, будь ласка, оберіть Електронна адреса стовпчик;

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

(3.) З Надіслати записи розділ, виберіть всі.

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

Надсилайте персоналізовані електронні листи до списку з Excel із кодом VBA

За винятком функції злиття, наступний код VBA також може зробити вам послугу, будь ласка, зробіть так:

1. Утримуйте клавішу ALT + F11 і відкриває Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно

Код 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 для Excel

Якщо у вас є Kutools для Excel, З його Надіслати електронні листи Ви можете швидко надсилати персоналізовані електронні листи кільком одержувачам з різними вкладеннями, як вам потрібно.

після установки Kutools для Excel, будь ласка, зробіть так:

1. Клацання Kutools Plus > Надіслати електронні листи, див. скріншот:

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

3. У полі редагування введіть окремі назви привітань, будь ласка, оберіть Назва зі спадного списку, а потім клацніть Вставте заповнювач щоб вставити імена в повідомлення, див. знімок екрана:

4. Потім введіть тіло повідомлення у вікно, як вам потрібно, див. Знімок екрана:

5. Після закінчення основного елемента електронної пошти, будь-ласка, виберіть режим надсилання, як ви хочете, ви можете відправити за допомогою Outlook або вказаного сервера, див. Screesnhot:

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

6. Нарешті клацніть Відправити , щоб надіслати електронні листи, після завершення з'явиться вікно із запитом, щоб нагадати вам про стан відправлення. див.

Натисніть Завантажити та безкоштовну пробну версію Kutools для Excel зараз!

Демонстрація: надсилайте персоналізовані електронні листи до списку з Excel за допомогою Outlook

Пов'язана стаття:

Як надіслати електронну пошту кільком одержувачам у списку з Excel за допомогою Outlook?

---

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

• Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
• Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
• Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
• Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
• Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
• Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
• Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
• Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
• Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.

Детальніше ... Завантажити безкоштовно... Придбати ... 

---

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

• Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
• Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Завантажити безкоштовно... Придбати ...