如何在 Excel 中根據單元格值自動傳送電子郵件？

如果我們手動傳送 Excel 報表，可能會非常耗時且效率低下。我們可以透過在傳送電子郵件之前執行以下步驟來自動化此過程。本教程將幫助您瞭解如何根據 Excel 中的單元格值自動傳送電子郵件。當提及的值滿足條件時，將開啟電子郵件應用程式。

根據單元格值自動傳送電子郵件

在這裡，我們將為工作表插入 VBA 程式碼，然後開啟電子郵件應用程式。讓我們看看一個簡單的過程，瞭解如何根據 Excel 中的單元格值自動傳送電子郵件。我們將藉助 VBA 應用程式來完成此過程，因為它無法直接在 Excel 中完成。

步驟 1

考慮建立一個新的 Excel 表格，然後右鍵單擊工作表名稱並選擇“檢視程式碼”以開啟 VBA 應用程式，然後將下面列出的程式輸入到如下圖所示的文字框中。

示例

Dim xRg As Range
'Update by Nirmal
Private Sub Worksheet_Change(ByVal Target As Range)
   On Error Resume Next
   If Target.Cells.Count > 1 Then Exit Sub
   Set xRg = Intersect(Range("A1"), Target)
   If xRg Is Nothing Then Exit Sub
   If IsNumeric(Target.Value) And Target.Value > 100 Then
      Call Mail_small_Text_Outlook
   End If
End Sub
Sub Mail_small_Text_Outlook()
   Dim xOutApp As Object
   Dim xOutMail As Object
   Dim xMailBody As String
   Set xOutApp = CreateObject("Outlook.Application")
   Set xOutMail = xOutApp.CreateItem(0)
   xMailBody = "This is excel" & vbNewLine & vbNewLine & _
      "Firts line created" & vbNewLine & _
      "Second lilne created"
   On Error Resume Next
   With xOutMail
      .To = "google@gmail.com"
      .CC = "Welcome to Email"
      .BCC = "Gmail"
      .Subject = "How to automatically sned mail"
      .Body = xMailBody
      .Display   'or use .Send
   End With
   On Error GoTo 0
   Set xOutMail = Nothing
   Set xOutApp = Nothing
End Sub