Перейти до основного матеріалу

Як надсилати персоналізовані масові електронні листи до списку з 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?

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

Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

вкладка kte 201905


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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
Comments (47)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, I have used this from your Kutools for Excel, and it works a dream. However, the Outlook email signature is not working, despite it being checked off. I have a default email signature set up in Outlook to go with the default mail account. But no matter how many times I try, I can't get Kutools to insert the signature before sending the email. Should I be doing something different in Outlook with the email signature?
This comment was minimized by the moderator on the site
Hello, Rochelley
Did you select the signature from the Outlook's Signatures and Stationery dialog box, see screenshot:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-signature-1.png
Please check it first, thank you!

If there still problem, please comment here.
This comment was minimized by the moderator on the site
I've used KuTools Send Emails for personalized attachments using an Excel list and it works well. Is it possible to use this functionality to send personalized links to shared files instead of attachments? I've tried and haven't been able to get this to work.
This comment was minimized by the moderator on the site
Hello, Blanchard

With our Send Emails feature, you can send the links of the shared files successfully.
You just need to change the attachment path to the link of the shared file, see below screenshot:

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-bulk-send-emails.png

Please try, hope it can help you!

If this doesn't work, you can upload your error image here, so that we can check the problem.
This comment was minimized by the moderator on the site
I've used KuTools Send Emails for personalized attachments using an Excel list and it works well. Is it possible to use this functionality to send personalized links to shared files instead of attachments? I've tried and haven't been able to get this to work.
This comment was minimized by the moderator on the site
In "Send personalized mass emails to a list from Excel with VBA code", it cannot work.For starters, the instructions wrt F11 does nothing, and so useless blather.Next, the #If...#End If cannot exist anywhere, as it (1) is treated as a comment and (2) the compiler crashes (cannot compile).So one tries it after the End Sub because the compiler says in effect comments to be after End Sub.Naturally, the "ShellExecute" causes a crash because it is not declared: remember, the #If...#End If had to be removed.
It would be nice to have WORKING code.
This comment was minimized by the moderator on the site
Thanks for the "How To Send Personalized Mass Emails To A List From Excel Via Outlook?", it is very useful.Question: I have 2 email addresses on my outlook. I want to use the 2nd one to send the personalized mass emails. How should I do that? I cannot find the way of changing the "From" when I finish&Merge. Can you help?
This comment was minimized by the moderator on the site
Hello, Pilar,The normal Mail Merge function only can help to send the emials from the default account, if you want to send eamils from other account you defined, you can use our Send Emails feature of Kutools for Excel. You can download and installed the Kutools for Excel, free trial 30 days.Please try, hope it can help you!
This comment was minimized by the moderator on the site
<p>Could you please help me to include table structure in below code ?</p><p>Gopalakrishnan</p>
This comment was minimized by the moderator on the site
I used the kutools send mail option after sending mail theres no attachment
This comment was minimized by the moderator on the site
Hi, marian,
Do you type the full path of the attachments into the cells? Please check it. Thank you!
This comment was minimized by the moderator on the site
No I didn't type the path rather I used the insert link button to add the attachment
This comment was minimized by the moderator on the site
Hi, I have to send to one email address(BOT) multiple request for *documents.
* Subject line needs to be the document reference number as demonstrated in below table.
Email ID Subject
# policy 111
# policy 222
# policy 333
# policy 444
# policy 555
# policy 666
# policy 777
# policy 888
# policy 999
# policy 1110

please help me simplyfy my task. I use MS outlook 2013 and 2016
This comment was minimized by the moderator on the site
Email ID Subject
# policy 111
# policy 222
# policy 333
# policy 444
# policy 555
# policy 666
# policy 777
# policy 888
# policy 999
# policy 1110
This comment was minimized by the moderator on the site
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
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations