如何在 Excel 中某個特定儲存格被修改時發送電子郵件？

本文將介紹當 Excel 中某個特定範圍內的儲存格被修改時，如何通過 Outlook 發送電子郵件。

如果某個特定範圍內的儲存格被修改，使用 VBA 程式碼發送電子郵件

如果某個特定範圍內的儲存格被修改，使用 VBA 程式碼發送電子郵件

如果您需要在範圍 A2:E11 內的某個儲存格被修改時自動創建一封新郵件並附上當前工作簿，以下 VBA 程式碼可以幫助您完成此操作。

1. 在需要根據其特定範圍內修改的儲存格發送郵件的工作表中，右鍵單擊工作表標籤，然後從上下文選單中選擇「 檢視程式碼」。請參見截圖：

2. 在彈出的 Microsoft Visual Basic for Applications 視窗中，請將以下 VBA 程式碼複製並粘貼到程式碼窗口中。

VBA 程式碼：如果在 Excel 中指定區域內的儲存格被修改則發送電子郵件

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/12
    Dim xRgSel As Range
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xMailBody As String
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set xRg = Range("A2:E11")
    Set xRgSel = Intersect(Target, xRg)
    ActiveWorkbook.Save
    If Not xRgSel Is Nothing Then
        Set xOutApp = CreateObject("Outlook.Application")
        Set xMailItem = xOutApp.CreateItem(0)
        xMailBody = "Cell(s) " & xRgSel.Address(False, False) & _
            " in the worksheet '" & Me.Name & "' were modified on " & _
            Format$(Now, "mm/dd/yyyy") & " at " & Format$(Now, "hh:mm:ss") & _
            " by " & Environ$("username") & "."

        With xMailItem
            .To = "Email Address"
            .Subject = "Worksheet modified in " & ThisWorkbook.FullName
            .Body = xMailBody
            .Attachments.Add (ThisWorkbook.FullName)
            .Display
        End With
        Set xRgSel = Nothing
        Set xOutApp = Nothing
        Set xMailItem = Nothing
    End If
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

注意：

3. 同時按下 Alt + Q 鍵以關閉 Microsoft Visual Basic for Applications 視窗。

從現在開始，只要範圍 A2:E11 中的任何儲存格被修改，就會自動創建一封新郵件，並附上更新後的工作簿。所有指定的欄位（如主題、收件人和郵件正文）都會列在郵件中。請發送該郵件。

注意：此 VBA 程式碼僅在您使用 Outlook 作為郵件程式時有效。

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！

相關文章：

• 如何根據 Excel 中的儲存格值自動發送電子郵件？
• 如何在 Excel 中保存工作簿時通過 Outlook 發送電子郵件？
• 如何在 Excel 中點擊按鈕時發送電子郵件？
• 如何在 Excel 中到期日到達時發送電子郵件？
• 如何在 Excel 中工作簿更新時發送電子郵件提醒或通知？