como poner fecha automatico VBA para enviar correos desde excel a outlook

¡ Hola !
amigos, necesito de su ayuda quiero enviar los correos directos de excel con esta macro:
Sub EnviarHojaPorCorreoElectrónico()
ActiveSheet.Copy
ActiveWorkbook.SendMail Recipients:="mail@ejemplo.cl", Subject:="Envío check list"
ActiveWorkbook.Close savechanges:=False
End Sub
pero ademas quiero que en el correo se agregue el dia automaticamente y ademas nose como agregar el cuadro de la descripcion del mensaje.

de ante mano muchas gracias.