Làm cách nào để tự động gửi email dựa trên giá trị ô trong Excel?
Giả sử bạn muốn gửi email qua Outlook đến một người nhận nhất định dựa trên một giá trị ô được chỉ định trong Excel. Ví dụ: khi giá trị của ô D7 trong trang tính lớn hơn 200, thì một email sẽ được tạo tự động. Bài viết này giới thiệu một phương pháp VBA để bạn nhanh chóng giải quyết vấn đề này.
Tự động gửi email dựa trên giá trị ô với mã VBA
Tự động gửi email dựa trên giá trị ô với mã VBA
Vui lòng làm như sau để gửi email dựa trên giá trị ô trong Excel.
1. Trong trang tính, bạn cần gửi email dựa trên giá trị ô của nó (ở đây nói là ô D7), nhấp chuột phải vào tab trang tính và chọn Mã Chế độ xem từ menu ngữ cảnh. Xem ảnh chụp màn hình:
2. Trong cửa sổ bật lên Microsoft Visual Basic cho các ứng dụng cửa sổ, vui lòng sao chép và dán mã VBA bên dưới vào cửa sổ mã trang tính.
Mã VBA: Gửi email qua Outlook dựa trên giá trị ô trong Excel
Dim xRg As Range
'Update by Extendoffice 2018/3/7
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
Set xRg = Intersect(Range("D7"), Target)
If xRg Is Nothing Then Exit Sub
If IsNumeric(Target.Value) And Target.Value > 200 Then
Call Mail_small_Text_Outlook
End If
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2"
On Error Resume Next
With xOutMail
.To = "Email Address"
.CC = ""
.BCC = ""
.Subject = "send by cell value test"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub
Chú ý:
3. Nhấn nút Khác + Q các phím với nhau để đóng Microsoft Visual Basic cho các ứng dụng cửa sổ.
Từ bây giờ, khi giá trị bạn nhập vào ô D7 lớn hơn 200, một email có người nhận và nội dung được chỉ định sẽ được tạo tự động trong Outlook. Bạn có thể nhấp vào Gửi để gửi email này. Xem ảnh chụp màn hình:
Chú ý:
1. Mã VBA chỉ hoạt động khi bạn sử dụng Outlook làm chương trình email của mình.
2. Nếu dữ liệu đã nhập trong ô D7 là giá trị văn bản, cửa sổ email cũng sẽ hiện ra.
Dễ dàng gửi email qua Outlook dựa trên các trường của danh sách gửi thư đã tạo trong Excel:
Sản phẩm Gửi email tiện ích của Kutools cho Excel giúp người dùng gửi email qua Outlook dựa trên danh sách gửi thư đã tạo trong Excel.
Tải xuống và dùng thử ngay bây giờ! (đường mòn miễn phí 30 ngày)
Các bài liên quan:
- Làm cách nào để gửi email qua Outlook khi sổ làm việc được lưu trong Excel?
- Làm thế nào để gửi email nếu một ô nhất định được sửa đổi trong Excel?
- Làm thế nào để gửi email nếu nút được nhấp trong Excel?
- Làm thế nào để gửi email nếu ngày đến hạn đã được đáp ứng trong Excel?
- Làm cách nào để gửi lời nhắc hoặc thông báo qua email nếu sổ làm việc được cập nhật trong Excel?
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!