Як надсилати персоналізовані масові електронні листи до списку з 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, щоб переконатися, що електронні листи були успішно відправлені.
Надсилайте персоналізовані електронні листи кільком одержувачам із різними вкладеннями:
з Kutools для Excel's Надіслати електронні листи функція, ви можете швидко надсилати персоналізовані електронні листи кільком одержувачам з різними вкладеннями з Excel через Outlook, як вам потрібно. У той же час ви також можете CC або Bcc повідомлення для конкретної людини. Завантажте та безкоштовно пробуйте Kutools для Excel зараз! |
Надсилайте персоналізовані електронні листи до списку з 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 : з більш ніж 300 зручними надбудовами Excel, які можна спробувати без обмежень протягом 30 днів. |
після установки Kutools для Excel, будь ласка, зробіть так:
1. Клацання Kutools Plus > Надіслати електронні листи, див. скріншот:
2, в Надішліть Emials діалоговому вікні, будь-ласка, виберіть діапазон даних, який ви хочете використовувати, а потім вкажіть адреси одержувачів, вкладення та тему, як вам потрібно, див.
3. У полі редагування введіть окремі назви привітань, будь ласка, оберіть ІМ'Я зі спадного списку, а потім клацніть Вставте заповнювач щоб вставити імена в повідомлення, див. знімок екрана:
4. Потім введіть тіло повідомлення у вікно, як вам потрібно, див. Знімок екрана:
5. Після закінчення основного елемента електронної пошти, будь-ласка, виберіть режим надсилання, як ви хочете, ви можете відправити за допомогою Outlook або вказаного сервера, див. Screesnhot:
примітки: Якщо ви хочете використовувати інший сервер, натисніть Налаштування вихідного сервера щоб встановити власний режим надсилання, див. screesnhot:
6. Нарешті клацніть Відправити , щоб надіслати електронні листи, після завершення з'явиться вікно із запитом, щоб нагадати вам про стан відправлення. див.
Натисніть Завантажити та безкоштовну пробну версію Kutools для Excel зараз!
Демонстрація: надсилайте персоналізовані електронні листи до списку з Excel за допомогою Outlook
Пов'язана стаття:
Як надіслати електронну пошту кільком одержувачам у списку з Excel за допомогою Outlook?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!