วิธีส่งอีเมลเตือนความจำหรือการแจ้งเตือนหากมีการอัปเดตสมุดงานใน Excel

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

ส่งการแจ้งเตือนทางอีเมลหรือการแจ้งเตือนหากมีการอัปเดตสมุดงานด้วยรหัส VBA

ส่งการแจ้งเตือนทางอีเมลหรือการแจ้งเตือนหากมีการอัปเดตสมุดงานด้วยรหัส VBA

โปรดทำดังนี้เพื่อส่งการแจ้งเตือนทางอีเมลหรือการแจ้งเตือนหากมีการอัปเดตสมุดงาน

1. ในสมุดงานเปิดแผ่นงานที่ระบุคุณจะส่งการแจ้งเตือนทางอีเมลตามข้อมูลที่อัปเดตภายใน

2. คลิกขวาที่แท็บแผ่นงานแล้วเลือก ดูรหัส จากเมนูคลิกขวา ดูภาพหน้าจอ:

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน คัดลอกและวางรหัสต่อไปนี้ลงในหน้าต่างรหัส ดูภาพหน้าจอ:

รหัส VBA: ส่งการแจ้งเตือนทางอีเมลหรือการแจ้งเตือนหากมีการอัปเดตสมุดงาน

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/14
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xName As String
    Dim xYesOrNo As Integer
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailItem = xOutApp.CreateItem(0)
    xYesOrNo = MsgBox("Want to attach updated workbook in email?", vbInformation + vbYesNo, "KuTools For Excel")
    If xYesOrNo = 6 Then ActiveWorkbook.Save
    If xYesOrNo = 6 Then xName = ActiveWorkbook.FullName
    With xMailItem
        .To = "Email Address"
        .cc = ""
        .Subject = "email notification test"
        .Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
        If xYesOrNo = 6 Then .Attachments.Add xName
        .Display
    End With
    xMailItem = Nothing
    xOutApp = Nothing
End Sub

หมายเหตุ: แทนที่ที่อยู่อีเมลด้วยที่อยู่อีเมลของผู้รับในบรรทัด . ถึง = "ที่อยู่อีเมล". และเปลี่ยนฟิลด์ Cc หัวเรื่องและเนื้อหาในรหัส VBA ตามที่คุณต้องการ

3 กด อื่น ๆ + Q ปุ่มเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

4. หลังจากแก้ไขเซลล์ในแผ่นงานแล้ว a Kutools สำหรับ Excel กล่องโต้ตอบจะปรากฏขึ้นตามภาพหน้าจอด้านล่าง หากคุณต้องการแนบเวิร์กบุ๊กที่อัปเดตในอีเมล โปรดคลิก ใช่ ปุ่ม. ถ้าไม่คลิกไฟล์ ไม่ ปุ่ม

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

หมายเหตุ: รหัส VBA จะใช้งานได้ก็ต่อเมื่อคุณใช้ Outlook เป็นโปรแกรมอีเมลของคุณ

บทความที่เกี่ยวข้อง:

• วิธีส่งอีเมลโดยอัตโนมัติตามค่าเซลล์ใน Excel
• วิธีส่งอีเมลผ่าน Outlook เมื่อบันทึกสมุดงานใน Excel
• จะส่งอีเมลได้อย่างไรหากมีการแก้ไขเซลล์บางเซลล์ใน Excel
• จะส่งอีเมลได้อย่างไรหากคลิกปุ่มใน Excel
• จะส่งอีเมลได้อย่างไรหากตรงตามวันที่ครบกำหนดใน Excel