Code to send Specific Row of data as an Email to the address mentioned in each Cell.

Try this macro:

Sub SendOutlookMessages()

'This macro will send an email through Outlook to a list of
'recipients whose emails are in excel.


 Set OL = CreateObject("Outlook.Application")
 Set MailSendItem = OL.CreateItem(olMailItem)


 For Each xcell In Sheets("sheet1").Range("J4:J10000").Cells
    If Len(xcell.Value) > 0 Then

    recipient = xcell.Value

    'Get all of the cells for the body text into one variable
    'Currently each cell is separated by a single space
    For i = 1 To 9
      body_text = body_text & " " & Cells(xcell.Row, i).Value
    Next i


    With MailSendItem
         .Subject = "Pending C Forms - " & Cells(xcells.Row, 5).Value
         .Body = body_text
         .To = recipient
         .Send
     End With


    End If
 Next xcell

Set OL = Nothing

End Sub

Try it on sample data first!!!

Also, the cell data for the message body is separated by only a single space right now but you can change that to whatever you want by changing " " in this line: body_text = body_text & " " & Cells(xcell.Row, i).Value