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