Macro Code to Send Email if Cell Value is 'True', to recipient located in same row.

.
You can edit this project to fit your needs. Change the column locations for the various bits of data and then make edits in the code to match.

Sub eMail()
Dim lRow As Integer
Dim i As Integer
Dim toDate As Date
Dim toList As String
Dim eSubject As String
Dim eBody As String

With Application
    .ScreenUpdating = False
    .EnableEvents = False
    .DisplayAlerts = False
End With

Sheets(1).Select
lRow = Cells(Rows.Count, 4).End(xlUp).Row

For i = 2 To lRow
  If (Cells(i, 1)) <> "" Then
     Set OutApp = CreateObject("Outlook.Application")
     Set OutMail = OutApp.CreateItem(0)

        toList = Cells(i, 2)    'gets the recipient from col D
        eSubject = "Bonus Assignment"
        
        msg = "Hello, " & Sheets("Sheet1").Range(i, "2").Value & vbNewLine & _
            "I am pleased to inform you that your annual bonus is " & Sheets("Sheet1").Range(i, "4").Value & vbNewLine & _
            "Sincerely, " & _
            "William Rose, President "

        On Error Resume Next
        With OutMail
        .To = toList
        .CC = ""
        .BCC = ""
        .Subject = eSubject
        .Body = eBody
        '.bodyformat = 1
        .Display   ' ********* Creates draft emails. Comment this out when you are ready
        '.Send     '********** UN-comment this when you  are ready to go live
        End With
 
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
 Cells(i, 5) = "Mail Sent " & Date + Time 'Marks the row as "email sent in Column E"
End If
Next i

ActiveWorkbook.Save

With Application
    .ScreenUpdating = True
    .EnableEvents = True
    .DisplayAlerts = True
End With
End Sub