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

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

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

doc надсилати персоналізовані електронні листи 1

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

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

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


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

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

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

doc надсилати персоналізовані електронні листи 2

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

doc надсилати персоналізовані електронні листи 3

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

doc надсилати персоналізовані електронні листи 4

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

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

doc надсилати персоналізовані електронні листи 5

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

doc надсилати персоналізовані електронні листи 6

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

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

doc надсилати персоналізовані електронні листи 7

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

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

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

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

doc надсилати персоналізовані електронні листи 8

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


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

з Kutools для Excel's Надіслати електронні листи функція, ви можете швидко надсилати персоналізовані електронні листи кільком одержувачам з різними вкладеннями з Excel через Outlook, як вам потрібно. У той же час ви також можете CC або Bcc повідомлення для конкретної людини.       Завантажте та безкоштовну пробну версію Kutools для Excel зараз!

doc надсилати персоналізовані електронні листи 18 1


стрілка синя права міхур Надсилайте персоналізовані електронні листи до списку з 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 клавішу для запуску цього коду, і з'явиться підказка з нагадуванням про вибір діапазону даних, який ви хочете використовувати, див. знімок екрана:

doc надсилати персоналізовані електронні листи 9

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

примітки: У наведеному вище коді ви можете змінити тему або основне повідомлення відповідно до своїх потреб.


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

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

Kutools для Excel : з більш ніж 300 зручними надбудовами Excel, які можна спробувати без обмежень протягом 30 днів. 

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

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

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

doc надсилати персоналізовані електронні листи 9

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

doc надсилати персоналізовані електронні листи 9

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

doc надсилати персоналізовані електронні листи 9

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

doc надсилати персоналізовані електронні листи 9

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

doc надсилати персоналізовані електронні листи 9

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

doc надсилати персоналізовані електронні листи 9

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


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

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

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

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


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

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

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

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (47)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Цей код працював дуже добре, велике спасибі за це. Але у мене є невеликі проблеми, я намагаюся змінити код, щоб попередньо визначити осередки, які я хочу приймати електронні листи та надсилати їх, тому що я створив свій файл Excel. Я хотів би змінити поле вибору для визначеного масиву комірок. Приклад: виправити всі мої дані будуть між A2:C6, тому, коли я запускаю макрос, мені не потрібно вибирати його знову. Дуже дякую за все, що ви пояснили вище
Цей коментар був мінімізований модератором на сайті
Чи можете ви змінити код, щоб прикріпити кілька файлів до електронної пошти? Це була б велика допомога. Заздалегідь спасибі.
Цей коментар був мінімізований модератором на сайті
чи можна додати код, щоб він також залучав мій звичайний підпис електронної пошти? Крім того, коли я вибираю діапазон для надсилання електронною поштою, я фільтрую електронну таблицю Excel, але коли я запускаю макрос, він все одно витягує приховані рядки.
Цей коментар був мінімізований модератором на сайті
Я теж хотів би знати про це!
Цей коментар був мінімізований модератором на сайті
як додати копію в код вище
Цей коментар був мінімізований модератором на сайті
Чудовий спосіб

Я просто хочу вас запитати про можливість кожного разу змінювати тему на основі електронної пошти??
Цей коментар був мінімізований модератором на сайті
Привіт, Азіз,
Коли ви застосовуєте Kutools для Excel, це може допомогти вам вставити теми на основі значень комірки, вам просто потрібно вибрати заголовок стовпця теми в діалоговому вікні, як показано нижче:

Будь ласка, спробуйте, сподіваюся, це допоможе вам!
Цей коментар був мінімізований модератором на сайті
Привіт, Скайян,

Я намагався з’явитися мого підпису електронної пошти, але не можу зробити це правильно! Чи є у вас трохи коду, який я можу додати, щоб це сталося?
Цей коментар був мінімізований модератором на сайті
Це божевілля пост, це фейк і не вірте цьому вмісту
Цей коментар був мінімізований модератором на сайті
Привіт друже,
це фантастично, потрібна одна допомога. Мені потрібно щоразу вкладати інший файл PDF до різних електронних листів.
хтось може мені допомогти, будь ласка?
Цей коментар був мінімізований модератором на сайті
привіт Скайян,
Мені потрібно прикріпити різні файли pdf для кожного листа. ви можете допомогти, будь ласка??
Цей коментар був мінімізований модератором на сайті
Привіт, Арвінд!
Kutools може допомогти вам додати кілька різних вкладень під час надсилання електронних листів.
Спочатку ви повинні вставити шлях до вкладень у клітинки, а потім застосувати Kutools, перегляньте наведений нижче знімок екрана:
Сподіваюся, це допоможе вам, дякую!
Цей коментар був мінімізований модератором на сайті
привіт Скайян,
Я використовував ваш код нижче для надсилання пошти і працює ідеально, чи можете ви щось змінити в коді для надсилання вкладень у форматі PDF.
Мені потрібно надіслати більше 100 листів, тому щоразу важко прикріпити файл. чи працює Kutools відповідно до заданого шляху та автоматично надсилає пошту?
Цей коментар був мінімізований модератором на сайті
агов,
Ви можете допомогти мені з функцією attachment.add? із зазначеним вище кодом VBA мені потрібно надіслати вкладення.
я не можу використовувати Kutools :(
Цей коментар був мінімізований модератором на сайті
як cc людей у ​​цьому?
Цей коментар був мінімізований модератором на сайті
що, якщо у мене є дані для багатьох клієнтів, а деякі клієнти мають більше 1 даних... і я не хочу надсилати клієнтам окремі листи, але, можливо, надсилатиму їх у табличному форматі в електронному листі. Як я можу надіслати лише 1 електронний лист клієнту.
Цей коментар був мінімізований модератором на сайті
Привіт, Стівене, чи знайшов ти спосіб це зробити? Ми можемо допомогти вам із простим онлайн-порталом
Цей коментар був мінімізований модератором на сайті
Привіт, ви вирішили це?
Цей коментар був мінімізований модератором на сайті
Я хочу знати, як це зробити. Ви можете мені сказати?
Цей коментар був мінімізований модератором на сайті
Дякую!!

Але я намагаюся виконати тест, але я нічого не надсилаю на електронну адресу. Також немає повідомлення про помилку. Чи можу я знати, що сталося?
Цей коментар був мінімізований модератором на сайті
У мене є список адрес електронної пошти в Excel, на які мені потрібно надсилати електронні листи. Тема та тіло знаходяться в клітинках, окрім адреси електронної пошти, і я маю наведений нижче сценарій, але мені потрібно надсилати 100 електронних листів за 1 годину, як я можу задовольнити вашу підтримку

Sub SendEm()
Dim i As Integer, Mail_Object, Email_Subject, o As Variant, lr As Long
lr = Клітинки(Рядки.Кількість, "A").Кінець(xlUp).Рядок
Встановити Mail_Object = CreateObject("Outlook.Application")
Для i = 2 До lr
З Mail_Object.CreateItem(o)
.Subject = Range("B" & i).Value
.To = Діапазон("A" & i).Значення

.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)
.Надіслати

'.display 'вимкнути відображення та увімкнути автоматичне надсилання
Кінець з
Далі я
MsgBox "Електронний лист успішно надіслано", 64
Application.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 Function ShellExecute Lib "shell32.dll" Псевдонім "ShellExecuteA" ( _
ByVal hwnd як LongPtr, ByVal lpOperation як рядок, _
ByVal lpFile як рядок, ByVal lpParameters як рядок, ByVal lpDirectory як рядок, _
ByVal nShowCmd As Long) Як LongPtr
#Інше
Приватне оголошення функції ShellExecute Lib "shell32.dll" Псевдонім "ShellExecuteA" ( _
ByVal hwnd As Long, ByVal lpOperation як рядок, _
ByVal lpFile як рядок, ByVal lpParameters як рядок, ByVal lpDirectory як рядок, _
ByVal nShowCmd As Long) Як довго
#Кінець Якщо
Sub SendEmail()
Dim xEmail як рядок
Dim xSubj як рядок
Dim xMsg як рядок
Dim xURL як рядок
Dim i як ціле число
Dim k As Double
Dim xCell As Range
Dim xRg As Range
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 для Excel"
Exit Sub
End If
Для i = 1 До xRg.Rows.Count
xEmail = xRg.Cells(i, 2)
xCC = xRg.Cells(i, 3)
xSubj = "Ваш реєстраційний код"
xMsg = ""
xMsg = xMsg & "Дорогий " & xRg.Cells(i, 1) & "," & vbCrLf & vbCrLf
xMsg = xMsg & "Це ваш реєстраційний код"
xMsg = xMsg & xRg.Cells(i, 4).Text & "." & vbCrLf & vbCrLf
xMsg = xMsg & " спробуйте, і радий отримати ваш відгук!" & vbCrLf
xMsg = xMsg & "Skyyang"
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.

Будь ласка, допоможіть.

Дайте мені знати, якщо вам знадобляться додаткові роз’яснення
There are no comments posted here yet
Load More
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL