Generating Multiple Email With Message Body / Subject And Emails Automatically

My task here is to generate email automatically. When i enter x to run the sub findvalue macro.

Any cells on the column D that has the value of 10 should generate email with the message body, subject and email address automatically.

Example if there are 3 task that are 10 days to deadline, 3 email will be generated after entering "x"

I have edited the Sendmail sub to locate the email's body, subject line and email from the excel.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target = "x" Then
If Not Intersect(Target, Target.Worksheet.Range("G2")) Is Nothing Then
Call Findvalue
End If
End If
End Sub

Code:
Sub Findvalue()
Dim Rng1 As Range
Dim foundemail As Range
Dim a As Variant
Set Rng1 = Range("D2:D10")
For Each a In Rng1
If a.Value = 10 Then

Set foundemail = Sheets("Email").Range("A:A").Find(What:=Cells(Target.Row, 1), _

[Code] .......