Intanto prova così:

codice:
'CDONTS
Set miaMail = CreateObject("CDONTS.NewMail")
miaMail.From = "mittente@dominio.ext"
miaMail.To = "XXXXX@aruba.it"
miaMail.Subject = "Oggetto del messaggio CDONTS"
miaMail.BodyFormat = 0
miaMail.MailFormat = 0
miaMail.Importance = 0
miaMail.Body = "msg di prova CDONTS"
miaMail.Send
Set miaMail = Nothing