Trying to format body of email with attachment through macro

[b_wallace1987]

Below is simple code that I have used to simply attach the current workbook to an email, write the subject line, and send the email.

Sub Email_Schedule()
Application.ScreenUpdating = False
ActiveWorkbook.Save
Shell ("OUTLOOK")
ActiveWorkbook.SendMail Sheets("Schedule").Range("EA7:EA11").Value, "test" & Sheets("Schedule").Range("D273").Value & " Schedule " & Sheets("Schedule").Range("D4").Value & " - " & Sheets("Compliance").Range("as53").Value
Application.ScreenUpdating = True
MsgBox "Your Schedule Has Been Submitted. Open Outlook and Click Send/Receive."
Application.ScreenUpdating = True
End Sub

It saves the current workbook, attaches the current workbook, writes the subject line, sends to a range of emails addresses based on data within the workbook, and sends it.

I want to add a body to the email though. For the sake of the example, let's say those are on Sheet "Compliance" cells A1:A20.

I cannot get this to just work though. Any help is appreciated.