How to automatically send email based on cell value in Excel?

In Excel, you can automate the process of sending emails based on specific conditions, such as the value in a particular cell. For example, you might want to send an email automatically via Outlook when the value in cell D7 exceeds 200. This tutorial demonstrates how to use VBA (Visual Basic for Applications) to trigger an email in Outlook based on a cell's value.

Automatically send email based on cell value with VBA code

Automatically send email based on cell value with VBA code

Please do as follows to send an email based on cell value in Excel.

1. In the worksheet you need to send email based on its cell value (here says the cell D7), right-click the sheet tab, and select View Code from the context menu. See screenshot:

2. In the popping up Microsoft Visual Basic for Applications window, please copy and paste the below VBA code into the sheet code window.

VBA code: Send email through Outlook based on cell value in Excel

Dim xRg As Range
'Update by Extendoffice 2018/3/7
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Cells.Count > 1 Then Exit Sub
  Set xRg = Intersect(Range("D7"), Target)
    If xRg Is Nothing Then Exit Sub
    If IsNumeric(Target.Value) And Target.Value > 200 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 = "Hi there" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2"
    On Error Resume Next
    With xOutMail
        .To = "Email Address"
        .CC = ""
        .BCC = ""
        .Subject = "send by cell value test"
        .Body = xMailBody
        .Display   'or use .Send
    End With
    On Error GoTo 0
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

Notes:

3. Press the Alt + Q keys together to close the Microsoft Visual Basic for Applications window.

From now on, when the value entered in cell D7 is greater than 200, an email with specified recipients and body will be created automatically in Outlook. You can click the Send button to send this email. See screenshot:

Notes:

1. The VBA code only works when you use Outlook as your email program.

2. If the entered data in cell D7 is a text value, the email window will be popped out as well.

Related articles:

• How to send an email through Outlook when workbook is saved in Excel?
• How to send email if a certain cell is modified in Excel?
• How to send email if button is clicked in Excel?
• How to send email if due date has been met in Excel?
• How to send email reminder or notification if workbook is updated in Excel?