con CDONTS nei riferimenti puoi inviare mail!
codice:
Set mail = new CDONTS.Newmail 'non ricordo se esatto perchè non ho VB davanti! :fagiano: 
mail.From = "miamail@.it"
mail.To = "destinatario@mail.it"
mail.Subject = "oggetto"
mail.Body = "testo"
mail.Send
Set mail = Nothing