Chi Mi Corregge? Non Invia Mail,,,,per piacere...

[malteni]

<%
'============Linkbruttocane su specifiche MSDN================
'* il corpo finale del messaggio contiene tutti i campi *
'* inseriti nella pagina html, in pratica puoi mettere *
'* tutti i campi che ti servono nel modulo di invio senza *
'* fare altre configurazioni aggiuntive. *
'================================================= ============

DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

'* voce da modificare con il proprio indirizzo email

invioA = "info@IL_MIO_DOMINIO"

'* voce da modificare con un indirizzo email che funga da mittente:
'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
'* dato che cdosys supporta questa notifica

invioDa = "info@IL_MIO_DOMINIO"

'------------fine modifiche necessarie------------------

nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")

'*rilevo i campi del form

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT

'* 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) = "authsmtp.IL_MIO_DOMINIO"
Flds(cdoSMTPAuthenticate) = 1
Flds(cdoSMTPServerPort) = 25
Flds(cdoSendUsername) = "smtp@IL_MIO_DOMINIO"
Flds(cdoSendPassword) = "LA_MIA_PASSWORD"
Flds.Update

With iMsg
Set .Configuration = iConf
.To = invioA
.From = invioDa
.Sender = invioDa
.Subject = "Richiesta da IL_MIO_DOMINIO "
.TextBody = "Prova"
.Send
End With
%>
<script>
document.location.replace('grazie.htm');
</script>

[Jacqui]

devi verificare quale metodo di invio supporta il server

cdonts
cdosys

[Jacqui]

P R O V A A V E D E R E Q U I

[malteni]

Ciao,
utilizza un server smtp autenticato REGISTER.

Ho provato seguendo le indicazioni del link, ma per ora senza risultati.

Quando, dalla pagina del sito clicco su INVIA non compaiono errori, e tutto sembra funzionare..

Solo che non arriva nulla...

Sono abbastanza perplesso.

Ho povato seguendo esempi trovati qui e li... ma in pochi veniva esplicitato come e dove inserire username e password...

CHE FARE?

Vi servono altre informazioni?

Grazie e Ciao,

Malteni

[michele.santoro]

Ciao,
Stai provando l'invio di mail da locale o da remoto?
Su quale server è appoggiato il tuo sito (2000, 2003 ...)?
Sei per caso su Aruba?
Hai verificato se il tuo server usa cdonts o cdosys per l'invio delle mail?
Prova a vedere questo 3D

[cavicchiandrea]

Prova questo

Set objConfig = Server.CreateObject("CDO.Configuration")
With objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
'prova con smtp. oppure mail. o anche authsmtp.
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.nomesito.ext"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "indirizzo1@nomesito.ext"
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "tua-password-indirizzo1"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields.Update
End With

Set objMsg = Server.CreateObject("CDO.Message")
With objMsg
Set .Configuration = objConfig
.From = Mittente
.Subject = Titolo
.To = Destinatario
.HTMLBody = TestoMessaggio
.Send
End With
Set objMsg = Nothing
set objConfig = Nothing 

[malteni]

Tanto per cominciare grazie davvero a tutti:

grazie per il tempo che mi avete dedicato (ed ahimè che mi dedicherete);
vorrei trovare un modo per sdebitarmi con ognuno di voi.. beh, se vi serve una mano per tutto quello che concerne il networking... chiedetemi pure;
per tutto quello che concerne la realizzazione di u nsito web... beh, per ora, ridete pure di me!!!!

scherzi a parte, ho letto i documenti che mi avete linkati, applicate le modifche che mi avete suggerite.

mi manca da testare la soluzione di cavicchiandrea: che appena finisco di capirla la provo: abbi un poco di pazienza...

Per il testo, ho un principio di desiderio di morte: per quel poco che ne capisco dovrebbe funzionare tutto! Ho seguito credo correttamente tutto ciò che i link che mi avete mandati suggerivano. Ed anche i link dei link... per vari hops...

questo è il mio form.asp ora:



<%

DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

invioA = "info@miosito.it"
invioDa = "info@miosito.it"

nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT

DIM iMsg, Flds, iConf

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

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "authsmtp.miosito.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = 1
Flds(cdoSendUserName) = "smtp@miosito.it"
Flds(cdoSendPassword) = "mia_psw"
Flds.Update

With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Contatto dal dominio " & nomeDominio
.TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da utente con indirizzo IP " & indirizzoIp & " browser e sistema operativo " & browserSistemaOperativo & vbCrLf & corpoMessaggio & ""
.Send
End With
%>
<script>
document.location.replace('grazie.htm');
</script>


Chiedo ora questo:

forse che è sbagliata la "chiamata" questo file, da parte del form iniziale?

come dicevo è un server che richiede l'autenticazione, fatto con Register.it

C'è qualcosa che devo controllare, secondo voi?
Qualcosa che posso chiedere a Mr. Register?
Altro, spettacolare, troubleshooting ?

Grazie mille dei suggerimenti, vi informerò sui miei certi e decisi passi avanti!!!!

l'hosting... l'hosting... cosa debbo chiedere a Mr. register? l'hosting deve essere linux, microsoft, indifferente.... bah... domanda stupida.. lo so.. è che ho appena fatto richiesta di sapere la tipologia del mio hosting...

Malteni