如何在 Excel 中修改特定儲存格時自動寄送電子郵件？

作者Siluvia修改日期2024-11-04

本文說明如何在 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

注意事項：

1）。在程式碼中，A2:E11 是您用來觸發電子郵件的範圍。

2）。請根據需求修改程式碼中 xMailBody 行的郵件內文。

3）。請將第郵箱地址行中的郵箱地址替換為收件者郵箱地址，格式如下：.To = "郵箱地址“。

4）。請修改第 .Subject = "Worksheet modified in " & ThisWorkbook.FullName 行中的郵件標題。

3. 同時按下 Alt＋Q 鍵，即可立即關閉 Microsoft Visual Basic for Applications 視窗！

從現在起，只要範圍 A2:E11 中的任何儲存格被修改，系統就會自動建立一封新郵件，並附上更新後的活頁簿。該郵件將包含所有指定欄位，例如主旨、收件者與內文。請立即寄出此郵件。

指定範圍內的任何儲存格被修改時，將建立一封新電子郵件

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

透過 KUTOOLS AI 解鎖 Excel 的神奇功能

智慧執行：透過簡易指令，輕鬆執行儲存格操作、分析資料，並建立圖表！
自訂公式：打造專屬公式，讓您的工作流程更順暢！
VBA 編碼：輕鬆撰寫並套用 VBA 程式碼，立即提升工作效率！
公式解析：輕鬆掌握複雜公式！
文字翻譯：輕鬆打破試算表中的語言隔閡！

運用 AI 驅動的工具強化您的 Excel 能力。立即下載體驗前所未有的高效！

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多