วิธีส่งการแจ้งเตือนอีเมล Outlook โดยอัตโนมัติเมื่อมีการอัปเดตแผ่นงาน Excel เฉพาะ

ทุกครั้งที่คุณอัปเดตแผ่นงาน Excel เฉพาะหากคุณจำเป็นต้องส่งการแจ้งเตือนทางอีเมลไปยังผู้รับที่ระบุเสมอคุณสามารถใช้วิธีการที่แนะนำในบทความนี้ได้

ผู้ใช้บางรายขอวิธีแก้ปัญหาเพื่อให้ MS Excel ส่งการแจ้งเตือนทางอีเมล Outlook ไปยังบุคคลที่ระบุโดยอัตโนมัติทุกครั้งเมื่อพวกเขาอัปเดตแผ่นงานเฉพาะโดยที่พวกเขามักลืมส่งอีเมลดังกล่าว ต่อไปนี้เราจะแนะนำวิธีการใช้งานฟังก์ชันนี้ด้วยรหัส VBA

ส่งอีเมลโดยอัตโนมัติเมื่อมีการอัปเดตแผ่นงาน Excel เฉพาะ

1. ในตอนแรกให้เข้าถึงเวิร์กบุ๊ก Excel ต้นทางที่มีเวิร์กชีตเฉพาะ
2. จากนั้นในหน้าต่าง MS Excel ไปที่เมนู "ไฟล์" และเลือก "ตัวเลือก"
3. จากนั้นในหน้าต่าง“ ตัวเลือก Excel” ให้เปลี่ยนไปที่แท็บ“ ศูนย์ความเชื่อถือ” แล้วคลิกปุ่ม“ การตั้งค่าศูนย์ความเชื่อถือ”
4. จากนั้นในหน้าต่างใหม่ให้เลื่อนไปที่แท็บ "การตั้งค่ามาโคร" ซึ่งคุณควรเลือก "เปิดใช้งานมาโครทั้งหมด"
5. หลังจากนั้นให้ไปที่แท็บ“ ตัวเลือกความเป็นส่วนตัว” และเปิดใช้งานคุณสมบัติ“ ลบข้อมูลส่วนบุคคลออกจากคุณสมบัติไฟล์เมื่อบันทึก”
6. จากนั้นคลิก“ ตกลง” หลาย ๆ อันเพื่อบันทึกการตั้งค่าเหล่านี้
7. หลังจากสำรองข้อมูลไปยังเวิร์กบุ๊ก Excel แล้วให้เข้าถึงแผ่นงานเฉพาะ
8. คลิกขวาที่ชื่อแผ่นงานในแถบด้านข้างด้านล่างแล้วเลือก“ ดูรหัส”
9. หลังจากนั้นให้คัดลอกรหัส VBA ต่อไปนี้ลงในโครงการของแผ่นงานเฉพาะ

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

10. หลังจากนั้นคุณควรบันทึกสมุดงานนี้เป็นสมุดงานที่เปิดใช้งานแมโคร Excel

• ขั้นแรกปิดหน้าต่าง“ Microsoft Visual Basic for Applications”
• จากนั้นคลิก "ไฟล์" ที่มุมบนด้านซ้าย
• จากนั้นเลือก "บันทึกเป็น"
• ในกล่องโต้ตอบให้เลือก "Excel Macro-Enabled Workbook" ในช่อง "Save as type"
• สุดท้ายคลิกปุ่ม "บันทึก"

11. สุดท้ายคุณสามารถปิดสมุดงานนี้ได้
12. ตอนนี้คุณสามารถเปิดสมุดงานที่เปิดใช้งานแมโคร Excel ที่บันทึกไว้ก่อนหน้านี้
13. เมื่อคุณทำการเปลี่ยนแปลงใด ๆ ในแผ่นงานคุณจะได้รับข้อความถามว่าจะส่งการแจ้งเตือนทางอีเมลหรือไม่
14. เมื่อคุณคลิกปุ่ม“ ใช่” อีเมล Outlook จะถูกส่งไปยังผู้รับที่กำหนดไว้ล่วงหน้า
15. อีเมลนี้จะมีลักษณะเหมือนภาพหน้าจอด้านล่าง:

ซ่อมแซมไฟล์ข้อมูล Outlook ที่เสียหาย

บางทีคุณอาจเคยพบความเสียหายของไฟล์ Excel จริงๆแล้วไฟล์ข้อมูล Outlook มีช่องโหว่เช่นเดียวกับไฟล์ Excel ตัวอย่างเช่นการปิด Outlook อย่างไม่ถูกต้องอาจทำให้ไฟล์ PST เสียหายได้ทันที ดังนั้นจึงจำเป็นอย่างยิ่งที่จะต้องดำเนินการเพื่อปกป้องไฟล์ Outlook รวมถึงการสำรองข้อมูลอย่างสม่ำเสมอรวมถึงการเตรียมเครื่องมือแก้ไข PST ที่มีประสิทธิภาพเช่น DataNumen Outlook Repair. ยูทิลิตี้นี้มีประสิทธิภาพเพียงพอที่จะ ซ่อม PST ปัญหาและกู้คืนข้อมูล PST

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ แก้ไข sql และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.