Mỗi khi cập nhật một bảng tính Excel cụ thể, nếu bạn luôn cần gửi thông báo qua email đến những người nhận cụ thể, bạn có thể sử dụng phương pháp được giới thiệu trong bài viết này.
Một số người dùng yêu cầu giải pháp cho phép MS Excel tự động gửi thông báo email Outlook cho những người cụ thể mỗi khi họ cập nhật một bảng tính cụ thể, do đó họ thường quên gửi email như vậy. Bây giờ, trong phần sau, chúng tôi sẽ hướng dẫn cách thực hiện chức năng này bằng mã VBA.
Tự động gửi email khi một bảng tính Excel cụ thể được cập nhật
- Đầu tiên, hãy truy cập vào sổ làm việc Excel nguồn chứa trang tính cụ thể.
- Sau đó, trong cửa sổ MS Excel, hãy đi tới menu 'Tệp' và chọn "Tùy chọn".
- Tiếp theo, trong cửa sổ “Tùy chọn Excel”, chuyển sang tab “Trung tâm tin cậy” và nhấp vào nút “Cài đặt trung tâm tin cậy”.
- Sau đó, trong cửa sổ mới, chuyển sang tab “Cài đặt macro”, trong đó bạn nên chọn “Bật tất cả macro”.
- Sau đó, chuyển sang tab “Tùy chọn quyền riêng tư” và bật tính năng “Xóa thông tin cá nhân khỏi thuộc tính tệp khi lưu”.
- Sau đó, nhấp vào vài nút “OK” để lưu các cài đặt này.
- Sau khi sao lưu vào sổ làm việc Excel, hãy truy cập vào bảng tính cụ thể.
- Nhấp chuột phải vào tên bảng tính ở thanh bên dưới cùng và chọn “Xem mã”.
- Sau đó, sao chép mã VBA sau vào dự án của trang cụ thể.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim nConfirmation As Integer
Dim objNewWorkbook As Excel.Workbook
Dim objNewWorksheet As Excel.Worksheet
Dim objOutlookApp As Object
Dim objMail As Object
nConfirmation = MsgBox("Do you want to send an email notification about the sheet updating now?", vbInformation + vbYesNo, "Mail Sheet Updates")
If nConfirmation = vbYes Then
ActiveWorkbook.Save
On Error Resume Next
Set objOutlookApp = CreateObject("Outlook.Application")
Set objMail = objOutlookApp.CreateItem(olMailItem)
'Change the email details as per your needs
With objMail
.To = "test@datanumen.com"
.Subject = "Email Notifying Sheet Updates"
.Body = "Hi," & vbCrLf & vbCrLf & "The worksheet " & Chr(34) & ActiveWorkbook.Sheets(1).Name & Chr(34) & " in this Excel workbook attachment is updated."
'Attach this workbook
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
End If
End Sub
- Sau đó, bạn nên lưu sổ làm việc này dưới dạng sổ làm việc Excel Macro-Enabled.
- Trước tiên, hãy đóng cửa sổ “Microsoft Visual Basic for Application”.
- Sau đó, nhấp vào “Tệp” ở góc trên bên trái.
- Tiếp theo, chọn “Lưu dưới dạng”.
- Trong hộp thoại, chọn “Sổ làm việc hỗ trợ macro Excel” trong trường “Lưu dưới dạng”.
- Cuối cùng, nhấp vào nút “Lưu”.
- Cuối cùng, bạn có thể đóng sổ làm việc này.
- Bây giờ, bạn có thể mở sổ làm việc hỗ trợ macro Excel đã lưu trước đó.
- Khi thực hiện bất kỳ thay đổi nào trong trang tính cụ thể, bạn sẽ nhận được thông báo hỏi xem có gửi thông báo qua email hay không.
- Khi bạn nhấp vào nút “Có”, một email Outlook sẽ được gửi đến những người nhận được xác định trước.
- Email này sẽ trông giống như ảnh chụp màn hình bên dưới:
Sửa chữa tệp dữ liệu Outlook bị hỏng
Có thể bạn đã từng gặp phải tình trạng file Excel bị hỏng. Trên thực tế, tệp dữ liệu Outlook cũng dễ bị tấn công như tệp Excel. Ví dụ: việc đóng Outlook không đúng cách có thể dễ dàng dẫn đến hỏng tệp PST. Do đó, điều cần thiết là phải thực hiện các hành động để bảo vệ tệp Outlook, bao gồm tạo bản sao lưu dữ liệu thường xuyên cũng như chuẩn bị một công cụ sửa lỗi PST mạnh mẽ, chẳng hạn như DataNumen Outlook Repair. Tiện ích này đủ mạnh để sửa chữa PST vấn đề và khôi phục dữ liệu PST.
Giới thiệu tác giả:
Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm sửa lỗi sql và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm