Làm Cách Nào để Gửi Hàng Loạt Email được Cá Nhân Hóa đến Một ...

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?

Tác giả: Tiểu Dương Sửa đổi lần cuối: 2024-08-22

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.

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

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 ...
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 ...
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 đầu: 12 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...

Thêm chi tiết về Kutools cho Excel... Tải xuống miễn phí...

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!

Thông tin chi tiết về Office Tab... Tải xuống miễn phí...