如何在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