Puedes realizarlo con CDONTS:
Set CDMail = Server.CreateObject ("CDONTS.Newmail")
CDMail.From = "
[email protected]"
CDMail.To = "
[email protected]"
CDMail.Subject = "Asunto"
CDMail.Body = "Aquí va el mensaje"
CDMail.Send
Simple y efectivo