Send eMail though excel workbook

eMail Workbook:-

To email your current workbook the following code.

Sub Email()

ActiveWorkbook.SendMail recipients:=chithu.palaniappan@gmail.com

End Sub