Hai provato senza configurazione?
codice:
 Dim iMsg, iConf, Flds

'Crea l'oggetto email 
Set iMsg = CreateObject("CDO.Message")
messaggio= messaggio &"Luisa, hai ricevuto un suggerimento per il sito"

With iMsg
.From = "miamail@yahoo.it"
.To = "miamail2@yahoo.it"
.Subject = "SUGGERIMENTI"

'Formato HTML
.HTMLBody = messaggio
'Formato testo (scegliere)
'.TextBody = messaggio

'Invia l'email 
.Send() 
End With

Set iMsg = nothing
Roby