PDA

Visualizza la versione completa : error '8004020f'


mogiaco76
09-02-2005, 10:45
provo a mandare una mail con questo codice, ma mi ritorna questo errore:

error '8004020f'

<%

'Spedizione: mittente, destinatario, oggetto, messaggio
mittente = "pippo@pippo.it"
destinatario = "mogiaco76@libero.it"
oggetto = "Richiesta informazioni dal sito"
messaggio = "messaggio dal sito"

'* creo gli oggetti cdosys sul server e li gestisco

DIM iMsg, Flds, iConf

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

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "195.223.199.72"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
Set .Configuration = iConf
iMsg.To = destinatario
iMsg.From = mittente
iMsg.Sender = mittente
iMsg.Subject = oggetto
iMsg.TextBody = messaggio
iMsg.Send
End With
%>


dove 195.223.199.72 l'indirizzo ip del server smtp.

ho fatto una ricerca ma non sono riuscito a risolvere il problema. suggerimenti?

grazie
Giacomo

Enrique_Rojas
09-02-2005, 15:47
che versione di windows server utilizzi?
occhio al componente CDONTS o CDOSYS.

jordan2100
22-10-2007, 09:42
Ciao, ho il tuo stesso problema....

error '8004020f'


per caso sei riuscito a risolverlo?

Ciao e grazie

fablan
22-10-2007, 10:12
Probabilmente l'errore nell'indirizzo SMTP che deve essere quello dell'e-mail di destinazione.

jordan2100
22-10-2007, 10:24
Ok funziona......
:confused:
ma cresce il mio stupore........

Ma per inviare molte email a molteplici utenti registrati che devo registrarmi tutti gli smtp??? di ogni email????

Help me!!!! :bh: :bh:

Grazie anticipato...

fablan
22-10-2007, 10:36
Potresti farlo, ma sarebbe un lavoraccio, oppure rimani lo stesso SMTP ed invii username e password, impostando:

Flds(cdoSMTPAuthenticate) = 1

optime
22-10-2007, 10:48
Originariamente inviato da jordan2100
Ok funziona......
:confused:
ma cresce il mio stupore........

Ma per inviare molte email a molteplici utenti registrati che devo registrarmi tutti gli smtp??? di ogni email????

Help me!!!! :bh: :bh:

Grazie anticipato...

e che c'entra? SMTP mangiare del mittente, non del destinatario

jordan2100
22-10-2007, 11:05
Niente da fare anche impostanto gli esername e password..... posto qui il codice..
:dh: :dh: :dh:

' Imposta le configurazioni
With objConfig
' Server SMTP di uscita
' ATTENZIONE! Usare il proprio indirizzo di server email!
' E' FONDAMENTALE per l'invio della email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.four14ministries.org"
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/username") = "info@miosito.org"
.Fields("http://schemas.microsoft.com/cdo/configuration/passowrd") = "xxxxxxxx"
' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With

GRAZIE ANCORA :zizi: :zizi: :zizi:

fablan
22-10-2007, 11:13
hai impostato due volte il campo sendusing, cancella questa riga:

.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1


e prova a sostituire queste righe:

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1

.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "info@miosito.org"

.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxxx"

jordan2100
22-10-2007, 11:25
G R A Z I E!!!!!

Un ultimo parere, ma saggio usare username e password....non potrebbero essere reperibili? meglio registrarle in un database e prenderle al momento giusto?
Grazie Mille, ho perso 2 kili di nervoso.....

Loading