error '8004020f'

[mogiaco76]

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]

che versione di windows server utilizzi?
occhio al componente CDONTS o CDOSYS.

[jordan2100]

Ciao, ho il tuo stesso problema....

error '8004020f'


per caso sei riuscito a risolverlo?

Ciao e grazie

[fablan]

Probabilmente l'errore è nell'indirizzo SMTP che deve essere quello dell'e-mail di destinazione.

[jordan2100]

Ok funziona......

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!!!!

Grazie anticipato...

[fablan]

Potresti farlo, ma sarebbe un lavoraccio, oppure rimani lo stesso SMTP ed invii username e password, impostando:

Flds(cdoSMTPAuthenticate) = 1

[optime]

Originariamente inviato da jordan2100
Ok funziona......

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!!!!

Grazie anticipato...

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

[jordan2100]

Niente da fare anche impostanto gli esername e password..... posto qui il codice..


' 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

[fablan]

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]

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.....