Excel to Outlook by VBA

[charlests]

Hi, I want to create a macro that will send a particular range of data from a sheet (based on number of rows from another sheet) to outlook 2007 with signature. In the below codes, new mail has been generated with signature, but body of the mail is empty and its showing error in the line ".HTMLBody = Sendrng & signature". Im a beginner in VBA, it will be very helpful if you could provid full working codes. Thanks

Sub test()
Dim Sendrng As Range
Dim rng As Range
Dim lastrow As Integer
Dim OApp As Object, OMail As Object, signature As String
Sheets("Sheet1").Select
lastrow = Cells.Find("*", [a1], , , xlByRows, xlPrevious).Row
Set OApp = CreateObject("Outlook.Application")
Set OMail = OApp.CreateItem(0)
Sheets("Sheet2").Select
Set Sendrng = Worksheets("Sheet2").Range("a3", Cells(lastrow, 6))
With OMail
.Display
End With
signature = OMail.body
OMail.body = signature
With OMail
.To = "someone@somedomain.com"
.Subject = "Type your email subject here"
'.Attachments.Add
'.HTMLBody = Sendrng & signature.
.Send
End With
Set OMail = Nothing
Set OApp = Nothing
End Sub