errore '8004020f' che non mi spiego

[zetaweb]

Ragazzi scusate,
come è possibile che uno stesso codice per una newsletter, sullo stesso server, funziona alla perfezione per un sito, mentre per un altro, tra l'altro con meno invii, mi restituisca sempre l'errore in oggetto?

Vi riporto il codice in questione:

do while not rsINVIA.eof

email = rsINVIA("emmail")
email2 = email &"; "
destinatari = destinatari & email2


rsINVIA.movenext
loop


DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

	iConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "indirizzoipdelserver"
	iConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
	iConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
	iConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
	iConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
	iConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
	iConf.Fields.Update 


'invio
invioA =  destinatari

With iMsg
   Set .Configuration = iConf
   .To = ""
   .From = "Cliente <indirizzoemailcliente>"
   .BCc = invioA
   .Sender = "indirizzoemailcliente"
   .Subject = oggetto
   '.TextBody = messaggio 
   .HTMLbody = html
   
   if allegato <> "" then
   file_da_allegare=server.mappath("/public/newsletter/"&allegato&"") 
	.AddAttachment file_da_allegare
	end if
   
   .Send
   
   'set iMsg = nothing

End With
destinatari = ""

Forse al posto dell'indirizzo IP del server che invia devo provare con l'SMTP della casella che invia? però a questo punto mi chiedo come mai l'altro sito, che ha impostato l'indirizzo ip del server, funziona correttamente essendo tutti e due i domini registrati presso lo stesso mantainer?

Spero di essermi spiegato bene e che possiate aiutarmi.

Grazie mille

[zazoom]

Se è lo stesso server! non dovrebbe cambiare nulla cmq prova... se hai già provato
... prova anche cosi ...

iConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "indirizzosmtp"
iConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
iConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
iConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
iConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
iConf.Fields.Update

cerca anche sul forum....dovrebbe già esserci qualcosa