从一行和电子邮件复制详细信息

Question

please click to view screenshot 如何复制带有表格标题的每一行的详细信息，并将复制的数据发送到该行的电子邮件地址？

我尝试了多种方法来解决此问题，但找不到解决方案：

基本上，我只需要复制一行中的内容，将复制的值发送到该行的电子邮件地址。

这是我的代码：

Sub AutoSendMail()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim cell As Range

    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")
    
    On Error GoTo cleanup
    For Each cell In Columns("E").Cells.SpecialCells(xlCellTypeConstants)
        If cell.Value Like "?*@?*.?*" And _
            LCase(Cells(cell.Row, "F").Value) = "yes" Then

            Set OutMail = OutApp.CreateItem(0)
            On Error Resume Next
            With OutMail
                .To = cell.Value
                .Subject = "VBA TEST"
                .Body = "Dear " & Cells(cell.Row, "A").Value _
                    & vbNewLine & vbNewLine & _
                    "Hello, this is a vba test, please ignore. " & _
                    "Thank you!"
                'You can add files also like this
                '.Attachments.Add ("C:\test.txt")
                .Display  'Or use Display
            End With
            On Error GoTo 0
            Cells(cell.Row, "G").Value = "SENT"
            Set OutMail = Nothing
        End If
    Next cell

cleanup:
    Set OutApp = Nothing
    Application.ScreenUpdating = True
End Sub