Problemone: da CDONTS a CDOSYS

[guerrod]

Avevo uno script per il commercio elettronico su Windows 2000 che si avvaleva di CDONTS per inviare le email, ed ha sempre funzionato alla grande.

Per motivi che qui non sto a spiegare ho dovuto migrare su Windows 2003 e.....l'invio mail ovviamente non funziona più!

Premetto che il software già preconfezionato che uso non è predisposto per CDOSYS, per cui non so se modificando il codice funzionerà.
Io ho provato a modificare qualcosa...sembrerebbe tutto ok (cioè non mi da errore), ma la mail non me la invia ugualmente!

Posto qui il codice "incriminato" nel caso qualcuno riuscisse a darmi una mano e togliermi dagli impicci, visto che devo consegnare il lavoro fra tre giorni. Sono nella.. beeeeeep

'---Script per CDONTS
Dim Mail
		Set Mail = Server.CreateObject("CDONTS.NewMail")
		Mail.From = Mittente
		Mail.To = Destinatario
		Mail.Subject = Titolo
		Mail.Body = Corpo

		On Error Resume Next
		Mail.Send
		InvioMail = True
		Set Mail = Nothing

Script per CDOSYS (fatto da me...che non funziona)

Dim Mail, Result
	Set Mail = Server.CreateObject("CDO.Message")
	Mail.From = Mittente
	Mail.To = Destinatario
	Mail.Subject = Titolo
	Mail.TextBody = Corpo
	'Mail.MessageType = "TEXT"		
	Result = Mail.Send()
		
	   If Result = 1 Then
		InvioMail = True
        Else
			InvioMail = False
	        End If

	        End Function

se qualcuno mi risolve sto problema gli regalo una ferrari!

[viki1967]

Originariamente inviato da guerrod
se qualcuno mi risolve sto problema gli regalo una ferrari!

Risparmiati la Ferrari (con tutto il rispetto), avresti fatto bene prima di postare e come previsto dalle regole del forum a fare una ricerca ci sono decine, anzi centinaia di discussioni, che hanno affrontato e risolto il tuo problema... ci provi la prossima volta?
in tutti i modi vale la risposta che ho dato a questa discussione
http://forum.html.it/forum/showthrea...42#post6377942

e cioè, puoi adattare un code disponibile sul vademecum di aruba
http://vademecum.aruba.it/start/con...atto.htm#cdosys

oppure sul sito del senior Weppos c'è un esempio di script CDOSYS anch'esso molto valido (personalmente lo preferisco per semplicità d'adattamento):
http://www.weppos.com/asp/script_sh...ript=665&cat=19

se hai problemi sai dove rivolgerti.

[weppos]

Result = Mail.Send()
If Result = 1 Then
		InvioMail = True
        Else
			InvioMail = False
	        End If

Non riesco a capiere l'utilità del codice sopra.
Basta un semplice

Mail.Send()

Inoltre segui i link che ti hanno consigliato.
Noterai come manchino le impostazioni di configurazione del server richieste da CDOSYS.