Sub Email()


Set objmessage = CreateObject("CDO.Message")
'SmtpMail.SmtpServer = "smtpserver name"
objmessage.Subject = "Subject"
objmessage.From = "xyz@domain.com"
objmessage.To = "xyz@domain.com"
objmessage.TextBody = "Excel Data is sent successfully."
objmessage.Send

End Sub


Please let me know if you know any solution...Its urgent