PDA

Visualizza la versione completa : CDOSYS errore 8004020e


aux998
10-05-2008, 16:54
Ciao,
sto creando alcune pagine di amministrazione e vorrei che mi venisse inviata una mail quando qualche amministratore fa qualche modifica, quindi subito dopo il codice di aggiornamento database ho inserito il codice per l'invio delle mail:





<%
DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
With iMsg
Set .Configuration = iConf
.To = "email@amministrazione.xxx"
.From = "web@sitoamministrato.xxx"
.Sender = "web@sitoamministrato.xxx"
.Subject = "web@sitoamministrato.xxx"
.HTMLBody = "<font face=""Tahoma"" color=""#FF0000"" size=""2"">[b]E' stato eseguito un aggiornamento.</font>"
.Send
End With
%>

... se lo metto online (server Aruba) tutto ok, se lo provo in locale (cambiando il server SMTP con quello che uso per la mia connessione), mi restituisce l'errore:

error '8004020e'

/sendmail.asp, line 24
che corrisponde ovviamente a .Send

Ho un server con Windows 2003 Server.

Qualcuno può aiutarmi ? magari c'è da fare qualche configurazione particolare, ma non so quale.
Grazie

aux998
12-05-2008, 22:17
faccio un UP che probabilmente non si deve fare, ma ho scritto il messaggio nel fine settimana e probabilmente è passato sotto ad altri...
scusatemi

Santino83_02
12-05-2008, 22:21
http://support.bebosoft.com/kb/article.php?kwbid=117

aux998
12-05-2008, 23:30
grasssssssssssssssie
ho impostato come mittente lo stesso indirizzo del destinatario e funziona.
tks

Santino83_02
13-05-2008, 01:37
Originariamente inviato da aux998
grasssssssssssssssie
ho impostato come mittente lo stesso indirizzo del destinatario e funziona.
tks

http://www.google.it, key: asp error '8004020e', mi pare il primo o secondo risultato. non lo dico perchè mi scocci rispondere, ma lo dico per te così la prossima volta non aspetti una settimana per risolvere una cosa da 5 minuti

documentarsi, bisogna in continuazione documentarsi e ricercare, scartabellando anche tra decine di siti, altrimenti i tempi morti diventano abissali


:ciauz:

aux998
13-05-2008, 10:45
ti giuro che cerco sempre prima di postare... probabilmente sbaglio il metodo di ricerca.

max1975_na
30-07-2008, 14:08
Salve a tutti
e capitato anche a me la stessa stranezza! funzionava tutto perfettamente MA se metti una email non attiva ti restituisce quello stupido errore!

ci vorrebbe uno script o un qualcosa che faccia un controllo sulla validita delle email

Santino83_02
30-07-2008, 15:45
metti un on error resume next prima del send dell'email, poi fai




if err.number<>0 then
response.write "ma che indirizzo mi hai messo??"
else
response.write "ah bello te l'ho inviata"
end if

max1975_na
30-07-2008, 18:09
avevo ragione quindi?
ma come fa a controllare se e un email reale? dovo e come fa il controllo!? :master:

Una cosa.. potrei trasformare la mia email in formato html?
ecco come attualmente ho lo script:



crlf = chr(13)+chr(10)
cBody = "Cliente Sig.:" & wnominativo &"" & crlf & _
"I dati sono i seguenti:" & crlf & _
"Società: "& wsocieta &"" & crlf & _
"Nome: "& wnominativo &"" & crlf & _
"Cognome: "& wcognome &"" & crlf & _
"Indirizzo: "& windirizzo &"" & crlf & _
"Città: "& wcitta &"" & crlf & _
"Provincia: "& wprov &"" & crlf & _
"Cap: "& wcap &"" & crlf & _
"Email: "& wemail &"" & crlf & _
"Telefono: "& wtelefono &" " & crlf & _
"Fax: "& wfax &" " & crlf & _
"Cf: "& wcf &"" & crlf & _
"Piva "& wpiva &" " & crlf
cBody = cBody & crlf

'---Script per CDOSYS
Dim Mail

sch = "http://schemas.microsoft.com/cdo/configuration/"

set Mail = server.CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

With iConf.Fields
.Item(sch & "sendusing") = 2 ' cdoSendUsingPort
.Item(sch & "smtpserver") = "localhost"
.update
End With

With Mail
Set.Configuration = iConf
.From = Cstr(trim(wemail))
.To = "info@miamail.it"
.Subject = "Nuova registrazione Cliente"
.TEXTBody = cBody
.Fields("urn:schemas:httpmail:importance").Value = 2

'tuo script controllo email

next
if err.number<>0 then
response.write "ma che indirizzo mi hai messo??"
else
response.write "ah bello te l'ho inviata"
end if

.Send
end With

set Mail=nothing
set iConf=nothing



Grazie

Loading