You would need IIS along with its SMTP server
You can also use other components like Bamboo SMTP or Jmail
A sample code is attached
Dim objCDO
Dim txtSubject
Dim txtBody
txtSubject = "test email"
txtBody = "This is a test email."
Set objCDO = Server.CreateObject("CDO.Message")
' This code assumes the above CDO
'instantiation code is included
objCDO.To = "
[email protected]"
objCDO.From = "
[email protected]"
objCDO.cc = "
[email protected]"
objCDO.Subject = txtSubject
objCDO.TextBody = txtBody
objCDO.Send
set objCDO = Nothing