Visual Basic - Codigo para Enviar Mails

Quisiera saber si alguien sabe o tiene un codigo simple para poder enviar mails desde un programa que estoy haciendo.
Este codigo lo consegui de la ayuda pero no funciona:
Dim myMail
Set myMail = CreateObject("CDONTS.NewMail")
myMail.From = "[email protected]"
myMail.To = "[email protected]"
myMail.Subject = "Sample Message"
myMail.Body = "This is a sample message."
myMail.AttachFile "d:\sample.txt"
myMail.Send
Set myMail = Nothing
NO ME RECONOSE EL OBJETO

rAMIRO

Podés usar el Mappi de visual basic o algun activex como el SendMail por ejemplo.