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

Làm thế nào để nhanh chóng gửi email dựa trên ngày trong ô Excel?

Bạn đã bao giờ cố gắng gửi Email dựa trên ngày tháng trong ô Excel chưa? Ví dụ, đây là danh sách ngày tháng trong cột A, sau đó bạn muốn gửi một Email với chủ đề, nội dung thư cho người nhận (cũng có thể CC và BCC cho người khác), bạn có thể xử lý như thế nào?

Gửi Email dựa trên ngày với VBA


Gửi Email dựa trên ngày với VBA

Để gửi email dựa trên ngày tháng trong Excel, bạn chỉ có thể áp dụng mã macro.

1. Bật trang tính có chứa dữ liệu và ngày tháng bạn sử dụng, rồi nhấn Alt + F11 các phím để kích hoạt Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. nhấp chuột Chèn > Mô-đunvà dán mã bên dưới vào tập lệnh trống. 

VBA: Gửi theo ngày

Sub email()
'UpdatebyExtendoffice20170831
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xAddress As String
    Dim xEmail_Subject, xEmail_Send_From, xEmail_Send_To, xEmail_Cc, xEmail_Bcc, xEmail_Body As String
    Dim xMail_Object, xMail_Single As Object
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xRgEach In xRg
        If xRgEach.Value = Date Then
            xEmail_Subject = Application.InputBox("Subject: ", "Kutools", , , , , , 2)
            xEmail_Send_From = Application.InputBox("Send from: ", "KuTools For Excel", , , , , , 2)
            xEmail_Send_To = Application.InputBox("Send to: ", "KuTools For Excel", , , , , , 2)
            If xEmail_Send_To = "" Then Exit Sub
            xEmail_Cc = Application.InputBox("CC: ", "KuTools For Excel", , , , , , 2)
            xEmail_Bcc = Application.InputBox("BCC: ", "KuTools For Excel", , , , , , 2)
            xEmail_Body = Application.InputBox("Message Body: ", "KuTools For Excel", , , , , , 2)
            Set xMail_Object = CreateObject("Outlook.Application")
            Set xMail_Single = xMail_Object.CreateItem(0)
            With xMail_Single
                .Subject = xEmail_Subject
                .To = xEmail_Send_To
                .cc = xEmail_Cc
                .BCC = xEmail_Bcc
                .Body = xEmail_Body
                .Send
            End With
        End If
    Next
End Sub

3. nhấp chuột chạy nút hoặc bấm F5 để thực thi mã, một hộp thoại bật ra để nhắc bạn chọn danh sách ngày. Xem ảnh chụp màn hình:
doc gửi trước ngày 1

4. Nhấp OK và tiếp tục chỉ định chủ đề email, địa chỉ email của người gửi, địa chỉ email của người nhận, CC, BCC và nội dung thư. Xem ảnh chụp màn hình:

doc gửi trước ngày 2 mũi tên bắn sang phải doc gửi trước ngày 3 mũi tên bắn sang phải doc gửi trước ngày 4
        mũi tên doc xuống
doc gửi trước ngày 7 mũi tên bắn trái doc gửi trước ngày 6 mũi tên bắn trái doc gửi trước ngày 5

5. nhấp chuột OK > OK cho đến lần cuối cùng, và sau đó email đã được gửi.
doc gửi trước ngày 8

LƯU Ý địa chỉ email của người gửi phải là tài khoản mặc định trong Outlook của bạn.


Tạo danh sách gửi thư và gửi email

doc gửi email

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 (14)
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
Làm cách nào để lấy VBA trong Excel để tạo email khi một ô thay đổi màu? Tôi có thể sử dụng công thức để thay đổi phông chữ của ô, dựa trên đồng hồ máy tính, khi ngày nằm trong một phạm vi trước khi hết hạn. Tôi hiện có một bảng tính với 25 tên của nhân viên và ngày hết hạn bằng lái xe, giấy phép lao động, ngày thị thực xuất nhập cảnh và ngày bắt đầu hàng năm của họ. Một số ngày là 30 ngày, một số là 60 ngày. Bất cứ khi nào một ngày đi vào phạm vi 30 (hoặc 60) ngày trước khi hết hạn, giá trị trong ô sẽ thay đổi từ phông chữ màu đen bình thường sang màu đỏ đậm. Tôi muốn có một email được gửi đến cho tôi cảnh báo rằng người ở A1 ... A2 ... A3, v.v. sắp có tài liệu làm việc hết hạn. Tập lệnh tôi cần chạy để thực hiện điều này là gì?
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, đây là một bài báo có thể có thể giúp bạn. https://www.extendoffice.com/documents/excel/4661-excel-send-email-if-cell-is-modified.html
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 này gần với những gì tôi cần nhưng tôi đang mắc kẹt với hai vấn đề. Đầu tiên, tôi cần chạy điều này trên toàn bộ sổ làm việc của mình để thêm các trang tính mới hàng ngày. Thứ hai, tôi cần nó bao gồm tên trang tính trong email để tôi biết trang nào đến hạn. Tôi tạo phiếu mới (trang tính) với trường là ngày trong tương lai, khi ngày đó đến, tôi cần có email. Cảm ơn sự giúp đỡ của 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
Vật liệu Felicidades por el; pero no me funciona. Al parecer el Rango no se llena, por ende queda vacío y sale de la rutina.

Alguna Corrección?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
holagracias por tu ayuda ... tengo una Consulta ..... vi la công thức Đặt xRgDate = Application.InputBox ("Vui lòng chọn cột ngày đến hạn:", "KuTools For Excel",,,,,, 8), el 8 que ý nghĩa?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Các hộp không tự động điền sau khi tôi nhấn OK. Tôi có thể thay đổi chủ đề, địa chỉ email và nội dung của email trong mã ở đâu?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bonjour j'ai copié les Code, à la validation il me demande bien les cellules loées, mais lorsque que je valide, il ne me suggest pas la suite des fenêtres, sujets, adresses, v.v.
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, boutry, xin lỗi tôi trả lời bằng tiếng Anh vì tôi không biết tiếng Pháp. Tôi có thể biết định dạng ngày giờ của bạn không? Tôi đoán có lẽ mã chỉ hoạt động cho datetime ở định dạng ngày tháng tiếng Anh.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Merhaba, bir excel dosyasında hatırlatıcı olarak bu konuyla ilgili VSB nin nasıl yapıldığı ile ilgili bilgiye ihtiyacım var. Örneğin boş bir hücreye bilgi girildiğinde bana mail at ya da 3 hafta sıklıkla hücreye bilgi girilip girilmediğiyle alakalı bana bilgi ver.

Hertürlü bilgi ve kaynağa açığım. Şimdiden herkese teşekkür ederim ..
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 Mehmet, đây là một bài hướng dẫn Làm thế nào để gửi email nếu một ô nhất định được sửa đổi trong Excel? nói về việc gửi email với tệp excel dưới dạng tệp đính kèm nếu các ô trong phạm vi cụ thể được sửa đổi, điều này có thể giúp ích cho 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
Çok teşekkür ederim ..
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
nó sẽ không diễn ra trên xRgEach tiếp theo nếu tôi có nhiều ngày giống nhau, nó sẽ gửi thư đến cùng một người dùng nhiều lầ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, vaibhav, bạn có thể xóa số lần trùng lặp bằng cách sử dụng tính năng Xóa trùng lặp trong Công cụ dữ liệu trong tab Dữ liệu, sau đó sử dụng VBA.
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,


Điều đó thật hoàn hảo, nhưng khi tôi thêm hoặc thay đổi ngày, nó sẽ không gửi email Automatiklicht, tôi phải chạy lại mã và do đó tôi phải chọn lại phạm vi ngày, người gửi, người nhận và tất cả thông tin. có cách nào để giải quyết vấn đề này không?
Không có bình luận nào được đăng ở đây
Để 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