active row copy into Outlook

[Rkovsonic]

Hello all,
New user. I working on vb to copy the range A:F of the active row base
on the if/then results. I am looking for a method for the copy/past
function to easily paste into an existing vb. What I have works grea
as written. I would like to replace the "WE HAVE A WINNER!" text i
the email body with the aforementioned range.

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
_
"WE HAVE A WINNER!" & vbNewLine & _
"Please contact the customer as soon as possible"
vbNewLine _

On Error Resume Next
With OutMail...



Thank you in advance for your help