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.
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
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:
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:
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:
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 «».
(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:
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:
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ả.
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! |
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:
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.
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:
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:
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:
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:
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:
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:
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
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
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...
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!