Problema con invio email

[zetaweb]

Ciao ragazzi,
ho un problema che mi sta facendo impazzire.
Per inviare una email automatica sto utilizzando questo 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") = "localhost"
		.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

' Pulizia delle variabili
		Set Messaggio = Nothing
		Set Confcdo = Nothing
		Set Flds = Nothing

ma purtroppo non ne vuole sapere di funzionare...
mi sapete dire cosa c'è di sbagliato?
Grazie

[Roby_72]

E l'errore?

Roby

[zetaweb]

l'errore non lo dava, ma adesso pare funzioni...
Anche se con ritardo mostruoso di diverse ore mi sono arrivate le email...

Tra l'altro errori nel codice non sembrano esserci, giusto?