Bỏ qua nội dung chính

Làm cách nào để gửi hàng loạt email được cá nhân hóa đến một danh sách từ Excel qua Outlook?

Ví dụ: tôi có dải dữ liệu sau trong một trang tính chứa các cột Tên, Địa chỉ Email, Mã Đăng ký và bây giờ, tôi muốn gửi một tin nhắn với lời chào được cá nhân hóa và Mã Đăng ký của riêng họ đến các Địa chỉ Email được phân tách trong cột A. Để giải quyết vấn đề này, các phương pháp sau đây có thể giúp bạn.

doc gửi email được cá nhân hóa 1

Gửi hàng loạt email được cá nhân hóa đến một danh sách từ Excel với chức năng Kết hợp Thư

Gửi hàng loạt email được cá nhân hóa đến danh sách từ Excel với mã VBA

Gửi hàng loạt email được cá nhân hóa đến một danh sách với các tệp đính kèm khác nhau bằng cách sử dụng Kutools cho Excel


mũi tên màu xanh bong bóng bên phải Gửi hàng loạt email được cá nhân hóa đến một danh sách từ Excel với chức năng Kết hợp Thư

Với Lời của Mail Merge , bạn có thể hoàn thành công việc này một cách nhanh chóng và dễ dàng, vui lòng thực hiện theo từng bước sau:

1. Khởi chạy một tài liệu Word trống mới, sau đó bấm Mailings > Chọn người nhận > Sử dụng danh sách hiện có, xem ảnh chụp màn hình:

doc gửi email được cá nhân hóa 2

2. Trong Chọn nguồn dữ liệu cửa sổ, chọn sổ làm việc bao gồm phạm vi dữ liệu mà bạn muốn sử dụng, và bấm Mở nút, xem ảnh chụp màn hình:

doc gửi email được cá nhân hóa 3

3. Trong thời gian tới Chọn bảng hộp thoại, vui lòng chọn trang tính với phạm vi dữ liệu bạn cần, sau đó nhấp vào OK nút, xem ảnh chụp màn hình:

doc gửi email được cá nhân hóa 4

4. Và tài liệu chính của tin nhắn E-mail và danh sách địa chỉ của bạn đã được kết nối với nhau, bây giờ, bạn có thể chỉnh sửa tin nhắn văn bản và thêm phần giữ chỗ cho biết nơi thông tin duy nhất sẽ xuất hiện trong mỗi tin nhắn.

(1.) Để chèn tên lời chào riêng của họ, hãy nhấp vào Mailings > Chèn Trường Hợp nhất > Họ tên, tên được cá nhân hóa đã được chèn vào thư và tên trường được bao quanh bởi «».

doc gửi email được cá nhân hóa 5

(2.) Tiếp tục nhập tin nhắn của bạn và chèn Mã số đăng ký vào nơi bạn cần, xem ảnh chụp màn hình:

doc gửi email được cá nhân hóa 6

5. Sau khi soạn tin nhắn, bạn có thể nhấp vào Xem trước kết quả theo Mailing để xem trước các tin nhắn E-mail và thực hiện các thay đổi trước khi bạn thực sự hoàn thành việc phối.

6. Sau khi đảm bảo không có vấn đề gì, bạn có thể gửi E-mail đến những người nhận riêng biệt, vui lòng nhấp vào Mailings > Kết thúc & Hợp nhất > Gửi tin nhắn qua email, xem ảnh chụp màn hình:

doc gửi email được cá nhân hóa 7

7. Sau đó, trong cửa sổ bật ra Hợp nhất với E-mail hộp thoại, hãy thực hiện các thao tác sau:

(1.) Từ Đến danh sách thả xuống, vui lòng chọn Địa chỉ email cột;

(2.) Bạn có thể nhập chủ đề vào Tiêu Đề hộp văn bản dòng;

(3.) Từ Gửi hồ sơ phần, chọn Tất cả.

doc gửi email được cá nhân hóa 8

8. Và sau đó nhấp vào OK, các email được gửi đến những người nhận riêng biệt với mã đăng ký của riêng họ cùng một lúc, sau khi gửi email, bạn có thể truy cập Outlook của mình để đảm bảo rằng email đã được gửi thành công.


Gửi email được cá nhân hóa cho nhiều người nhận với các tệp đính kèm khác nhau:

Với Kutools cho Excel's Gửi email , bạn có thể nhanh chóng gửi email được cá nhân hóa cho nhiều người nhận với các tệp đính kèm khác nhau từ Excel qua Outlook khi bạn cần. Đồng thời, bạn cũng có thể CC hoặc Bcc tin nhắn cho một người cụ thể.       Tải xuống và dùng thử miễn phí Kutools cho Excel ngay!

doc gửi email được cá nhân hóa 18 1


mũi tên màu xanh bong bóng bên phải Gửi hàng loạt email được cá nhân hóa đến danh sách từ Excel với mã VBA

Ngoại trừ chức năng Kết hợp Thư, mã VBA sau cũng có thể giúp bạn, vui lòng làm như sau:

1. Giữ ALT + F11 chìa khóa và nó mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.

Mã VBA: Gửi hàng loạt email được cá nhân hóa đến danh sách từ 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. Sau đó nhấn F5 để chạy mã này và một hộp nhắc sẽ bật ra để nhắc bạn chọn phạm vi dữ liệu mà bạn muốn sử dụng, xem ảnh chụp màn hình:

doc gửi email được cá nhân hóa 9

4. Và sau đó nhấp vào OK , các email sẽ lần lượt được gửi đến các địa chỉ riêng biệt với mã đăng ký riêng lẻ, sau khi gửi email, bạn có thể truy cập vào Outlook của mình để đảm bảo rằng các email đã được gửi thành công.

Chú thích: Trong đoạn mã trên, bạn có thể thay đổi chủ đề hoặc nội dung thông điệp theo nhu cầu của mình.


mũi tên màu xanh bong bóng bên phải Gửi hàng loạt email được cá nhân hóa đến một danh sách với các tệp đính kèm khác nhau bằng cách sử dụng Kutools cho Excel

Nếu bạn có Kutools cho Excel, Với khả Gửi email , bạn có thể nhanh chóng gửi email được cá nhân hóa cho nhiều người nhận với các tệp đính kèm khác nhau khi bạn cần.

Kutools cho Excel : với hơn 300 bổ trợ Excel tiện dụng, dùng thử miễn phí không giới hạn trong 30 ngày. 

Sau khi cài đặt Kutools cho Excel, hãy làm như sau:

1. Nhấp chuột Kutools Plus > Gửi email, xem ảnh chụp màn hình:

2. Trong Gửi Emials hộp thoại, vui lòng chọn phạm vi dữ liệu mà bạn muốn sử dụng, sau đó chỉ định địa chỉ người nhận, tệp đính kèm và chủ đề khi bạn cần, xem ảnh chụp màn hình:

doc gửi email được cá nhân hóa 9

3. Trong hộp chỉnh sửa, chèn các tên lời chào riêng lẻ, vui lòng chọn Họ tên từ danh sách thả xuống, sau đó nhấp vào Chèn trình giữ chỗ để chèn tên vào tin nhắn, hãy xem ảnh chụp màn hình:

doc gửi email được cá nhân hóa 9

4. Sau đó nhập nội dung thư của bạn vào hộp khi bạn cần, xem ảnh chụp màn hình:

doc gửi email được cá nhân hóa 9

5. Sau khi hoàn thiện nội dung email, vui lòng chọn chế độ gửi như bạn muốn, bạn có thể gửi bằng Outlook hoặc máy chủ được chỉ định của mình, xem ảnh chụp ba chiều:

doc gửi email được cá nhân hóa 9

Chú thích: Nếu bạn muốn sử dụng máy chủ khác, hãy nhấp vào Cài đặt máy chủ thư đi để đặt chế độ gửi cho riêng bạn, hãy xem screesnhot:

doc gửi email được cá nhân hóa 9

6. Cuối cùng, hãy nhấp vào Gửi để gửi email, sau khi hoàn tất, một hộp nhắc sẽ bật ra để nhắc bạn trạng thái gửi. xem screesnhot:

doc gửi email được cá nhân hóa 9

Nhấp vào Tải xuống và dùng thử miễn phí Kutools cho Excel ngay!


Demo: Gửi hàng loạt email được cá nhân hóa đến danh sách từ Excel qua Outlook

Kutools cho Excel: với hơn 300 bổ trợ Excel tiện dụng, dùng thử miễn phí không giới hạn trong 30 ngày. Tải xuống và dùng thử miễn phí ngay!

Bài viết liên quan:

Làm cách nào để gửi email đến nhiều người nhận trong một danh sách từ Excel qua Outlook?

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

Mô tả


Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
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