Invio mail CDOSYS

[Vincent.Zeno]

Ciao.

Ho un guestbook: http://www.creazionespettacoli.net/mrwax_index.asp
che mi dovrebbe mandare una mail quando un nuovo messaggio viene inserito.
Oggi ho fatto un po' di pulizia (eliminando lo spam), e un tentativo di inserimento del messaggio.
Sebbene il nuovo messaggio venga registrato e sia visiblie,
all'invio dell massaggio appare un errore (appunto quello dell'invio della mail)

 			Dim objCDOSYSCon
			
			Set objCDOSYSMail = Server.CreateObject("CDO.Message")
		    	Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
        		
	        	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmtpServer
	        	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")  = 25
	        	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
	        	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
        		objCDOSYSCon.Fields.Update 
		
			Set objCDOSYSMail.Configuration = objCDOSYSCon
			objCDOSYSMail.From = Uguestname & "<" & IndirizzoEmail & ">"
			objCDOSYSMail.To = "<" & IndirizzoEmail & ">"
			objCDOSYSMail.Subject = OggettoEmail
			objCDOSYSMail.HTMLBody = CorpoEmail
						
			If NOT strSmtpServer = "" Then objCDOSYSMail.Send				
			Set objCDOSYSMail = Nothing

If NOT strSmtpServer = "" Then objCDOSYSMail.Send
è la riga incriminata... che manca?

[Roby_72]

E l'errore?

Roby

[Vincent.Zeno]

Scusa... non mi manda la mail.
E l'unico messaggio di errore è:
error '8004020f'
/include/funzioni_filtro.asp, line 208

[Roby_72]

strSmtpServer cosa contiene?

Roby

[Vincent.Zeno]

Contiene smtp.creazionespettacoli.net ,

che debba provare com smtp.aruba.it ?

[Roby_72]

Prova "localhost".
Nel vademecum di Aruba c'è scritto come configurare l'invio con CDOSYS.

Roby

[Vincent.Zeno]

Ho provato sia con localhost che con smtp.aruba.it.
L'errore non appare più
Ma non ho ricevuto ancora nessuna mail... e mi sembra strano che ritardi.
Aspetto ancora u po'...

Proverò anche a rileggere il Vademecum

Se hai idee... ti aspetto!