สร้างการแจ้งเตือนทางอีเมลสำหรับการปรับปรุงแผ่นงาน Excel

เมื่อทำงานบนเครือข่ายที่ใช้ร่วมกันเป็นเรื่องปกติที่พนักงานหลายคนจะสามารถเข้าถึงและเปลี่ยนไฟล์ทั่วไปได้ตลอดทั้งวัน บทความนี้จะอธิบายวิธีการใช้ แมโคร ใน Microsoft Excel ที่จะส่งอีเมลอัตโนมัติทุกครั้งที่มีการเปลี่ยนแปลงเอกสารทั่วไป

การเปลี่ยนแปลงของ Excel Macro to Signal

คุณสามารถโปรแกรมแมโครนี้เพื่อส่งอีเมลไปยังสมาชิกในทีมที่เฉพาะเจาะจงเพื่อแจ้งเตือนพวกเขาถึงการเปลี่ยนแปลงในไฟล์เครือข่าย

 สมุดงานย่อยส่วนตัว _BeforeSave (ByVal SaveAsUI ในฐานะบูลีน _
ยกเลิกเป็นบูลีน)
ติ่มซำ As String
answer = MsgBox ("นี่คือที่ที่คุณใส่ข้อความเพื่อแจ้งผู้ใช้หากเขาต้องการบันทึกหรือไม่" vbYesNo "นี่คือชื่อเรื่องของกล่อง"
ถ้า answer = vbNo แล้วยกเลิก = จริง
ถ้า answer = vb ใช่แล้ว
'ประเภทมุมมองแบบเปิด
ตั้งค่า OutlookApp = CreateObject ("Outlook.Application")
ตั้งค่า OlObjects = OutlookApp.GetNamespace ("MAPI")
ตั้งค่า newmsg = OutlookApp.CreateItem (olMailItem)
'เพิ่มผู้รับ
'newmsg.Recipients.Add ("ชื่อที่นี่")
newmsg.Recipients.Add (" ")
'เพิ่มหัวเรื่อง
newmsg.Subject = "หัวเรื่องหัวเรื่องของอีเมลอัตโนมัติที่นี่"
เพิ่มเนื้อหา
newmsg.Body = "เนื้อหาของอีเมลอัตโนมัติที่นี่"
newmsg จอแสดงผล '
newmsg ส่งข้อความ
'ให้โครงสร้างของข้อความที่ส่ง
MsgBox "ใส่กล่องยืนยันการทดสอบที่นี่",, "ชื่อของกล่องยืนยัน"
สิ้นสุดถ้า
'บันทึกเอกสาร
'Me.Worksheets.Save
ส่วนท้าย