Visual Basic para Aplicaciones - Macro para Outlook

Hola:

Necesito mandar una hoja de excel por correo electronico . pero necesito que esta se mande como message body

y no como attachment

Tengo el siguiente codigo, pero si ejecuto de esta forma la macro. me manda todo el libro como archivo adjunto........... y yo lo que necesito es que me mande solo la hoja pero no como attach ............ quiero que me la mande como message body

espero y me puedan ayudar

Saludos

Desde Chihuahua, Mexico

Sub Mail_ActiveSheet()
Dim wb As Workbook
Dim strdate As String
Dim stEmail As String

strdate = Format(Now, "dd-mm-yy h-mm-ss")
strEmail = "[email protected]"
Application.ScreenUpdating = False

ActiveSheet.Copy

Set wb = ActiveWorkbook

With wb
.SaveAs ThisWorkbook.Name & " " & strdate & ".xls"
.SendMail strEmail, "Shit Report1"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With

Application.ScreenUpdating = True
End Sub