adesso ho settato come indirizzo del server l'ip del server mail..
l'errore è lo stesso, da l'errore alla riga dove c'e .Send alla fine
codice:
'---Script per CDOSYS
Dim Messaggio
Dim Confcdo
Dim Flds
Dim strHTML
Dim smtpserver
Const cdoSendUsingPort = 2
smtpserver = mailserver
set Messaggio = CreateObject("CDO.Message")
set Confcdo = CreateObject("CDO.Configuration")
Set Flds = Confcdo.Fields
' impostazioni dei campi di configurazione di CDOSYS per usare la porta 25 sul server SMTP
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 20
.Update
End With
With Messaggio
' applico i settaggi
Set .Configuration = Confcdo
.To = destinatario
.From = mittente
.Subject = titolo
.textbody = corpo
.Send
End With