Generating mail messages with a Macro

Hi all,

I have a macro that works but I need it to do one more thing and I cant figure it out: the macro generates emails and attaches worksheets to it, it also adds a subject in the email AND I need all the emails to have a generic message in the body of the email, How do I do that?

Thank you

Sub Mail_every_Worksheet()
Dim sh As Worksheet
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Worksheets
If sh.Range("b5").Value Like "*@*" Then
sh.Copy
ActiveWorkbook.SaveAs sh.Name & " _ " _
& ThisWorkbook.Name & ".xls"
ActiveWorkbook.SendMail ActiveSheet.Range("b5").Value, _
"Year to Date Chargeability as of May 25, 2013"
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False
End If
Next sh
Application.ScreenUpdating = True
End Sub

Did you try

HTML Code: 

I want a macro that does it for me. Thx though

If you had gone to the site you could have got multiple options or flexibility of macros readily available for that.
Best Regards/VKS