Copy select cells from active row into email body
 

Hello,

I am looking for some help with the syntax for copying range A:F of the active row based on the formula information from the vb excerpt below. What you see works great, but I need to replace the "insert A-F HERE" in the email body with actual data.


Sub FollowUp()
Dim Cell As Range
For Each Cell In Sheet3.Range("L3:L" & Sheet3.Range("L" & Rows.Count).End(xlUp).Row)
If IsEmpty(Cell.Value) Then GoTo X:
If Cell.Value - Date <= -10 Then
Cell.Interior.ColorIndex = 45
If Cell.Interior.ColorIndex =45 Then
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

strbody = "The quote approval period for the Repair asset" & vbNewLine & _
"listed below has expired:" & vbNewLine & vbNewLine & _
"Insert A-F HERE" & vbNewLine & _
"Please contact the customer as soon as possible" & vbNewLine _

On Error Resume Next
With OutMail...


Thank you in advance for your patience and understanding