Note: The other languages of the website are Google-translated. Back to English

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ác công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

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!
officetab dưới cùng
Nhận xét (47)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã này hoạt động rất tốt, rất cảm ơn vì điều đó. Nhưng tôi chỉ có một vấn đề nhỏ, tôi đang cố gắng thay đổi mã để xác định trước các ô tôi muốn lấy email và gửi nó vì cách tôi tạo tệp excel của mình. Tôi muốn chuyển hộp lựa chọn cho một mảng ô xác định. Ví dụ: sửa tất cả dữ liệu của tôi sẽ nằm giữa A2: C6 nên khi tôi chạy macro, tôi không cần phải chọn lại nó. Rất cảm ơn bạn vì tất cả những gì bạn đã giải thích ở trên
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bạn có thể sửa đổi mã để đính kèm nhiều tệp trong email không? Nó sẽ là một sự trợ giúp tuyệt vời. Cảm ơn trước.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
có thể thêm mã để nó cũng kéo chữ ký email bình thường của tôi không? Ngoài ra, khi chọn phạm vi của tôi để gửi email, tôi đã lọc bảng tính excel của mình, nhưng khi tôi chạy macro, nó vẫn kéo theo các hàng ẩn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi cũng muốn biết về điều này!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
cách thêm cc trong đoạn mã trên
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cách tuyệt vời

Tôi chỉ cần hỏi bạn về khả năng thay đổi chủ đề mỗi lần dựa trên email ??
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Aziz,
Khi bạn áp dụng Kutools cho Excel, nó có thể giúp bạn chèn các chủ đề dựa trên các giá trị ô, bạn chỉ cần chọn tiêu đề cột chủ đề trong hộp thoại như ảnh chụp màn hình sau:

Hãy thử nó, hy vọng nó có thể giúp bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Skyyang,

Tôi đã cố gắng và cố gắng làm cho chữ ký email của mình xuất hiện nhưng dường như không thể làm chính xác được! Bạn có một chút mã mà tôi có thể thêm vào để thực hiện điều này không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bài điên rồ này là, bài này là giả mạo và đừng tin vào nội dung này
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
chào bạn,
điều này thật tuyệt vời, cần một sự trợ giúp, tôi cần đính kèm các tệp pdf khác nhau vào các email khác nhau mỗi lần.
Có ai có thể giúp tôi không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
chào Skyyang,
tôi cần đính kèm tệp pdf khác nhau cho mỗi thư. bạn có thể giúp được không ??
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Arvind,
Kutools có thể giúp bạn thêm nhiều tệp đính kèm khác nhau khi gửi email.
Trước tiên, bạn nên chèn đường dẫn của tệp đính kèm vào các ô, sau đó áp dụng Kutools, vui lòng xem ảnh chụp màn hình sau:
Hy vọng nó có thể giúp bạn, cảm ơn bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
chào Skyyang,
Tôi đã sử dụng mã dưới đây của bạn để gửi thư và đang hoạt động hoàn hảo, bạn có thể giúp tôi sửa đổi gì trong mã để gửi tệp đính kèm pdf không.
Tôi cần gửi hơn 100 thư nên rất khó để đính kèm tệp mỗi lần. Kutools có hoạt động theo đường dẫn nhất định và gửi thư tự động không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào,
bạn có thể giúp tôi với hàm đính kèm.add không? với mã VBA ở trên của bạn, tôi cần gửi tệp đính kèm.
tôi không thể sử dụng Kutools :(
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
làm thế nào để cc mọi người trong này?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều gì sẽ xảy ra nếu tôi có dữ liệu cho rất nhiều khách hàng và một số khách hàng có nhiều hơn 1 dữ liệu ... và tôi không muốn gửi các thư riêng biệt cho khách hàng, nhưng có thể gửi nó ở định dạng bảng trong email. Làm thế nào tôi có thể gửi chỉ 1 email cho khách hàng.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Steven, bạn đã tìm ra cách để hoàn thành việc này chưa. Chúng tôi có thể giúp bạn với một cổng web trực tuyến đơn giản
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Bạn đã giải quyết được nó chưa?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi muốn biết làm thế nào để làm cho nó. Bạn có thể cho tôi biết được không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn!!

Nhưng tôi đã cố gắng làm bài kiểm tra và không có gì gửi cho emai. Cũng không có thông báo lỗi .. Tôi có thể biết những gì đã xảy ra?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi có một danh sách các địa chỉ email trong excel mà tôi cần gửi email tới Chủ đề và nội dung nằm trong các ô bên cạnh địa chỉ email và tôi có tập lệnh bên dưới nhưng tôi cần gửi 100 email mỗi 1 giờ. Làm thế nào tôi có thể vui lòng hỗ trợ của bạn

Sub SendEm ()
Dim i Là Số nguyên, Mail_Object, Email_Subject, o Là Biến thể, lr Là Dài
lr = Cells (Rows.Count, "A"). End (xlUp) .Row
Đặt Mail_Object = CreateObject ("Outlook.Application")
Đối với i = 2 Đến lr
Với Mail_Object.CreateItem (o)
.Subject = Range ("B" & i) .Value
.To = Range ("A" & i) .Value

.Body = Phạm vi ("C" & i). Giá trị
.attachments.Add (Trang tính ("Trang tính1"). Phạm vi ("H" & i). Văn bản)
.attachments.Add (Trang tính ("Trang 1"). Phạm vi ("I" & i). Văn bản)
.attachments.Add (Trang tính ("Trang 1"). Phạm vi ("J" & i). Văn bản)
.attachments.Add (Trang tính ("Trang 1"). Phạm vi ("K" & i). Văn bản)
.Gửi

'.display' tắt hiển thị và cho phép gửi để gửi tự động
Kết thúc với
Tiếp theo
MsgBox "Đã gửi thành công e-mail", 64
Application.DisplayAlerts = Sai
Đặt Mail_Object = Không có gì
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, hiba,
Kutools cho Excel's Gửi Email của chúng tôi có thể giúp bạn giải quyết vấn đề của mình. Vui lòng đặt các điều kiện như ảnh chụp màn hình sau:
Với tính năng này, bạn cũng có thể áp dụng tính năng CC, BCC và bạn cũng có thể chèn nhiều tệp đính kèm.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào quản trị viên


apakah metode ini bisa di lakukan pada word 2007 soalnya saya coba lakukan di file pdf nya tdk terkirim .. terimakasih
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Vì lý do nào đó, mã này có nó ở nơi nó gửi mọi email khác trong danh sách. Có một lý do tại sao nó không gửi từng cái? Tôi đã trực tiếp sao chép mã ở trên và không thay đổi bất kỳ điều gì
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã VBA hoạt động tốt, cảm ơn, nhưng làm thế nào để thêm Cc? Tôi đã thử và không thành công ...
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã VBA hoạt động tốt, cảm ơn, nhưng làm thế nào để thêm Cc? Tôi đã thử với:


Làm mờ xCc thành chuỗi
sau đó
xCc = xRg.Cells (i, 9) (địa chỉ ở cột thứ 9)


và thất bại ...
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Jean,

Để giải quyết vấn đề của bạn, vui lòng áp dụng mã dưới đây: (Lưu ý: Bạn nên thêm cột CC vào Cột C)

#Nếu VBA7 và Win64 thì
Khai báo riêng PtrSafe Hàm ShellExecute Lib "shell32.dll" Bí danh "ShellExecuteA" (_
ByVal hwnd As LongPtr, ByVal lpOperation As String, _
ByVal lpFile dưới dạng chuỗi, ByVal lpParameters dưới dạng chuỗi, ByVal lpDirectory dưới dạng chuỗi, _
ByVal nShowCmd As Long) As LongPtr
#Khác
Khai báo riêng Hàm ShellExecute Lib "shell32.dll" Bí danh "ShellExecuteA" (_
ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile dưới dạng chuỗi, ByVal lpParameters dưới dạng chuỗi, ByVal lpDirectory dưới dạng chuỗi, _
ByVal nShowCmd As Long) As Long
#End Nếu
Gửi phụ ()
Làm mờ xEmail thành chuỗi
Dim xSubj dưới dạng Chuỗi
Làm mờ xMsg dưới dạng chuỗi
Làm mờ xURL dưới dạng chuỗi
Dim i dưới dạng số nguyên
Dim k As Double
Dim xCell As Range
Dim xRg theo phạm vi
Làm mờ xTxt dưới dạng chuỗi
Làm mờ xCC dưới dạng chuỗi
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Đặt xRg = Application.InputBox ("Vui lòng chọn phạm vi dữ liệu:", "Kutools cho Excel", xTxt,,,,, 8)
Nếu xRg không có gì thì thoát Sub
Nếu xRg.Columns.Count <> 4 Thì
MsgBox "Lỗi định dạng khu vực, vui lòng kiểm tra", "Kutools cho Excel"
Thoát Sub
Cuối Nếu
Đối với i = 1 Đến xRg.Rows.Count
xEmail = xRg.Cells (i, 2)
xCC = xRg.Cells (i, 3)
xSubj = "Mã đăng ký của bạn"
xMsg = ""
xMsg = xMsg & "Kính gửi" & xRg.Cells (i, 1) & "," & vbCrLf & vbCrLf
xMsg = xMsg & "Đây là Mã đăng ký của bạn"
xMsg = xMsg & xRg.Cells (i, 4) .Text & "." & vbCrLf & vbCrLf
xMsg = xMsg & "hãy dùng thử và rất vui khi nhận được phản hồi của bạn!" & vbCrLf
xMsg = xMsg và "Skyyang"
xSubj = Application.WorksheetFunction.Subsults (xSubj, "", "% 20")
xMsg = Application.WorksheetFunction.Subsrupt (xMsg, "", "% 20")
xMsg = Application.WorksheetFunction.Subsrupt (xMsg, vbCrLf, "% 0D% 0A")
xURL = "mailto:" & xEmail & "? cc =" & xCC & "& subject =" & xSubj & "& body =" & xMsg
ShellExecute 0 &, vbNullString, xURL, vbNullString, vbNullString, vbNormalFocus
Application.Wait (Now + TimeValue ("0:00:02"))
Application.SendKeys "% s"
Sau
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã sử dụng mã VBA nói trên trong "Gửi email hàng loạt được cá nhân hóa tới danh sách từ Excel với mã VBA". Tôi muốn biết liệu tôi có thể gửi email cho một số cá nhân cần thông báo dựa trên excel yêu cầu tôi gửi lời nhắc cho những người có hợp đồng sắp hết hạn không? Tôi không thể lấy excel để gửi email và tôi biết nó vì chính mã. Ai đó có thể vui lòng giúp tôi giải quyết vấn đề này không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi muốn gửi các email có dòng tiêu đề duy nhất, làm cách nào tôi có thể thực hiện điều đó với VBA này?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào mọi người!

Tôi có một danh sách các email trong một trang tính và bản nháp email trong một trang khác.
Tôi cần mã để tự động gửi bản thảo email từ trang 2 cho mỗi 5 thành viên trong danh sách được cung cấp trong trang 1.
Sau khi 5 email đầu tiên được gửi, mã sẽ gắn thẻ chúng là "Đã gửi" trong một cột dành riêng mới và sau đó đợi 60 giây trước khi gửi bộ 5 email tiếp theo.
Mã sẽ chạy cho đến khi kết thúc toàn bộ danh sách.

Mã có thể sử dụng outlook để gửi thư từ hồ sơ mặc định trong outlook.

Xin vui lòng giúp đỡ.

Hãy cho tôi biết trong trường hợp bạn cần thêm bất kỳ lời giải thích nào
Không có bình luận nào được đăng ở đây
Tải thêm
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL