Email to be sent when a content is entered in a cell in Excel

Maybe you can use VBA to monitor changes in certain cells and trigger an email via Outlook.

I haven't tried it, but here's an approach. Since I haven't tried the code, please save your file first to be on the safe side.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Dim MyEmail As Object
    
    ' Specify the cell to monitor (update this as per your needs)
    Set KeyCells = Me.Range("B2") ' Change B2 to the cell you want to monitor

    If Not Application.Intersect(KeyCells, Target) Is Nothing Then
        ' Get relevant data from the worksheet
        Dim Name As String
        Dim DateOfReport As String
        Dim OutOfPocketExpenses As String
        
        Name = Me.Range("A1").Value ' Cell where employee name is stored
        DateOfReport = Me.Range("A2").Value ' Cell for date of report
        OutOfPocketExpenses = KeyCells.Value ' Updated cell value

        ' Prepare email
        Set MyEmail = CreateObject("Outlook.Application").CreateItem(0)
        With MyEmail
            .To = "email address removed for privacy reasons" ' Replace with your email
            .Subject = "Out-of-Pocket Expense Update"
            .Body = "Employee Name: " & Name & vbCrLf & _
                    "Report Date: " & DateOfReport & vbCrLf & _
                    "Out-of-Pocket Expenses: " & OutOfPocketExpenses
            .Send ' Or use .Display to preview before sending
        End With
    End If
End Sub

Hope this helps you...if not, just ignore it.

formula

=HYPERLINK("mailto:email address removed for privacy reasons?subject=Mail from our Website","new")

or send by

=webservice("http://e.anyoupin.cn/eh3/?send2~email address removed for privacy reasons~title remider~my workbook has been updatede.anyoupin.cn.")

=if(a2="New",webservice("http://e.anyoupin.cn/eh3/?send2~your email address~title remider~New message.","keep")


Outlook
Private Sub Worksheet_Change(ByVal Target As Range)

    Dim KeyCells As Range

    Set KeyCells = Range("A1")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _

           Is Nothing Then

If Range("A1") = "New" Or Range("A1") = "Exit/Term" Then

Dim MyEmail As MailItem

Set MyEmail = Application.CreateItem(olMailItem)

With MyEmail

.To = "<type your recipient email address/ess here>"

.Subject = "<type the subject of your email here>"

.Body = "<type the email message text here>"

.BodyFormat = olFormatHTML

.Display

.Send

End With

End If

End If

End Sub

If you have access to PowerAutomate you  might look into using a flow to complete this task.

There is no straightforward way to that. In case like this, i prefer power automate

There's no straightforward way in Excel to do this. For example, there's no "Alert me on cell changes" feature.  There are a few ways that I think you could do it.

Maybe the email part isn't important. You could create a workbook for yourself and use Power Query to gather all the data from the expense reports that you can review periodically. Assuming you know where the employees are saving their reports, and you have a way to detect when you're missing some data, you would not need to look through every report. Power Query would allow you to filter down to just the out-of-pocket expenses, assuming the format of the reports is consistent.