Tạo thông báo email cho cập nhật bảng tính Excel

Khi làm việc trên một mạng chia sẻ, việc nhiều nhân viên truy cập và thay đổi các tệp chung trong cả ngày là điều rất phổ biến. Bài viết này sẽ giải thích cách triển khai macro trong Microsoft Excel sẽ gửi email tự động mỗi khi có thay đổi đối với tài liệu chung.

Thay đổi tài liệu Macro Macro sang tín hiệu

Bạn có thể lập trình macro này để gửi email đến các thành viên nhóm cụ thể để cảnh báo họ về những thay đổi đối với tệp mạng.

 Sổ làm việc phụ riêng tư_B BeforeSave (ByVal SaveAsUI As Boolean, _
Hủy dưới dạng Boolean)
Dim trả lời dưới dạng chuỗi
answer = MsgBox ("Đây là nơi bạn đặt văn bản để nhắc người dùng nếu anh ta muốn lưu hay không" vbYesKhông ", đây là tiêu đề của hộp đó")
Nếu câu trả lời = vbKhông thì Hủy = Đúng
Nếu câu trả lời = vbYes thì
'công cụ loại triển vọng mở
Đặt OutlookApp = CreateObject ("Outlook.Application")
Đặt OlObjects = OutlookApp.GetNamespace ("MAPI")
Đặt newmsg = OutlookApp.CreateItem (olMailItem)
'thêm những người nhận
'newmsg.Reciprons.Add ("Tên đây")
newmsg.Reciprons.Add (" ")
'Thêm chủ đề
newmsg.Subject = "Dòng chủ đề của email tự động tại đây"
'thêm cơ thể
newmsg.Body = "cơ thể của email tự động ở đây"
hiển thị newmsg.Display '
newmsg. Gửi tin nhắn
'cung cấp thông tin của tin nhắn đã gửi
MsgBox "chèn kiểm tra hộp xác nhận tại đây",, "tiêu đề của hộp xác nhận"
Kết thúc nếu
'lưu tài liệu
'Me.Worksheet.Save
Kết thúc phụ