ciao maxi!
vero che è strano?
ecco!

Dim objMail, objConfig

' Crea l'oggetto email
Set objMail = Server.createObject("CDO.Message")

' Dimensiona l'oggetto configurazione
Set objConfig = Server.createObject ("CDO.Configuration")

' Imposta le configurazioni
With objConfig

' Server SMTP di uscita
' ATTENZIONE! Usare il proprio indirizzo di server email!
' E' FONDAMENTALE per l'invio della email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "relay.albacom.net"

' Porta SMTP

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update

End With

' Assegna le configurazioni
Set objMail.Configuration = objConfig

testo="testo mail"

' Assegna all'oggetto le proprietà necessarie
objMail.From = "cedassrl.it" ' Mittente
objMail.To = indirizzi ' Destinatario
objMail.Subject = "richiesta dal sito cedassrl.it" ' Oggetto
objMail.HTMLBody = testo ' Messaggio

' Invia l'email
objMail.Send()

Set objMail = Nothing


niente da fare lo manda solo alle mail che sono configurate qui è che hanno come smtp albacom..
ti ringrazio per l'aiuto!