Làm thế nào để gửi email khi tệp đính kèm Excel được mở bởi người nhận?
Hầu hết chúng ta có thể gửi một số thư quan trọng với tệp đính kèm Excel cho khách hàng của mình, vì vậy chúng tôi cần biết liệu người nhận đã nhận được thư và mở tệp đính kèm hay chưa. Trong trường hợp này, bạn có thể tạo mã VBA cho tệp đính kèm Excel của mình, khi người nhận mở sổ làm việc và kích hoạt mã, thì email nhắc sẽ tự động được gửi cho bạn.
Gửi email khi tệp đính kèm Excel được người nhận mở bằng mã VBA
Gửi email khi tệp đính kèm Excel được người nhận mở bằng mã VBA
Trước khi gửi tệp Excel này, bạn nên tạo một mã như sau:
1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. Sau đó nhấp đúp vào Sổ làm việc này theo dự án VBA để mở một mô-đun trống, sau đó sao chép và dán mã sau vào mô-đun:
Mã VBA: Gửi email khi tệp Excel được mở:
Private Sub Workbook_Open()
'Updateby Extendoffice
Dim olkObj As Object
Dim olkEm As Object
Dim strbody As String
Set olkObj = CreateObject("Outlook.Application")
Set olkEm = olkObj.CreateItem(0)
strbody = "Hi there" & vbNewLine & vbNewLine & _
ThisWorkbook.Name & vbNewLine & _
"was opened by" & vbNewLine & _
Environ("username")
On Error Resume Next
With olkEm
.To = ""
.CC = ""
.BCC = ""
.Subject = "File opened"
.Body = strbody
.Send
End With
On Error GoTo 0
Set olkEm = Nothing
Set olkObj = Nothing
End Sub
Chú thích: Trong đoạn mã trên, bạn nên thay đổi địa chỉ email thành địa chỉ của riêng mình mà bạn muốn nhận email nhắc và thay đổi chủ đề theo nhu cầu của bạn.
3. Sau đó, lưu sổ làm việc này dưới dạng Sổ làm việc hỗ trợ macro Excel định dạng tệp, xem ảnh chụp màn hình:
4. Và sau đó gửi một tin nhắn có đính kèm tệp này đến những người nhận mà bạn cần, khi người nhận tải xuống và mở tệp Excel này và kích hoạt mã, một email nhắc nhở sẽ tự động được gửi cho bạn và cho bạn biết rằng tệp đã được mở bởi ai sau đây ảnh chụp màn hình hiển thị:
Chú thích: Phương pháp này chỉ khả dụng khi bạn sử dụng Outlook làm chương trình thư của mình.
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 Excelvà 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...
Office Tab Mang giao diện theo thẻ vào Office và giúp công việc của bạ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!
