Sub SendActiveWorkbook()
ActiveWorkbook.SendMail _
", _
Subject:="Test" & Format(Date, "dd/mmm/yy")
End Sub

How can I add a message body to the above mail??