如果在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。 按 其他 + Q 同時關閉按鍵 Microsoft Visual Basic for Applications 窗口。

從現在開始，將修改範圍A2：E11中的任何單元格，將創建一個新電子郵件，並附加更新的工作簿。 電子郵件中將列出所有指定的字段，例如主題，收件人和電子郵件正文。 請發送電子郵件。

備註: VBA 代碼僅在您使用 Outlook 作為電子郵件程序時才有效。

使用 Kutools AI 解鎖 Excel 魔法

• 智慧執行：執行單元格操作、分析資料並建立圖表 - 所有這些都由簡單的命令驅動。
• 自定義公式：產生客製化公式以簡化您的工作流程。
• VBA編碼：輕鬆編寫和實作 VBA 程式碼。
• 公式解讀：輕鬆理解複雜的公式。
• 文字翻譯：打破電子表格中的語言障礙。

使用 AI 支援的工具增強您的 Excel 功能。 立即下載 並體驗前所未有的效率！

相關文章：

• 如何基於Excel中的單元格值自動發送電子郵件？
• 當工作簿保存在Excel中時，如何​​通過Outlook發送電子郵件？
• 如果在Excel中單擊按鈕，如何發送電子郵件？
• 如果在Excel中已達到到期日期，如何發送電子郵件？
• 如果在Excel中更新了工作簿，如何發送電子郵件提醒或通知？