di nuovo sulle mail di conferma

**ginebell** · 29-06-2006, 20:42

Scusate ragazzi ma devo assolutamente risolvere il problema entro le 21,30.
Sono arrivato a questo punto. In una pagina asp del mio sito (in host su un server win2003 che gestisco direttamente) ho una form per consentire ai visitatori di registrarsi per accedere ai forum previsti dal sito. Il tutto viene mandato tramite e-mail alla mia casella di posta. Ora, uil browser segnala che il messaggio è stato spedito correttamente, appare la pagina di ringrazioamento per la registrazione. MA l'e-mail al sottoscritto e a quelli in copia, non arriva manco per idea. Si trovano tutte nella directory del server c:\Inetpub\mailroot\Queue.
Come fare per farle arrivare effettivamente a destinazione?
Ragazzi devo risolvere il problema entro questo pomeriggio altrimenti mi castrano.
Grazie e ciao

**yoyo87** · 29-06-2006, 20:49

posta il codice

**ginebell** · 29-06-2006, 21:13

ecco il codice

<%
Option Explicit
'--------------------------------------------------------
'Purpose: processes the feedback mail
'Date: 10 March 2001
'Commenti:
'--------------------------------------------------------
Dim form, nome
%>

<Html>
<head>
<title>pagina2</title>
</head>
<body>
<%
call Main()
Sub Main()
'--------------------------------------------------------
'Purpose: la logica dell'applicazione
'Date: 10 March 2001
'Commenti:
'--------------------------------------------------------
'se la lungezza è 0 non c'e niente nell email
If Len(Request.Form("email")) = 0 then
no_email()
else
manda_posta(form)
ecco_fatto(nome)
end if
End sub

Sub no_email()
'--------------------------------------------------------
'Purpose: manda un messaggio se email è vuoto
'Date: 10 March 2001
'Commenti: potevamo usare javascript per forzare il cliente
'ma questi sono esempi di ASP
'--------------------------------------------------------
'allora diciamo al cliente che senza una email non possiamo rispondergli
response.write "<div align='center'>"
response.write "<table border='0' width='80%' cellspadding='4' cellspacing='4'>"
response.write "<tr><td>niente email...?</td></tr>"
response.write "<tr><td>per favore, torna indiedro e... </td></tr>"
response.write "<tr><td align='middlè>"
response.write "Prova di nuovo"
response.write "</td></tr></table></div>"
End Sub
Sub manda_posta(form)
'--------------------------------------------------------
'Purpose: manda la email
'Date: 10 March 2001
'Commenti:
'--------------------------------------------------------
Dim email, commenti
Dim objMessage, objConfig, mandamiquesto
'facciamo la vendemmia dell'input
nome = Request.Form("nome")
email = Request.Form("email")
commenti = Request.Form("commenti")
mandamiquesto = nome & "VBcrlf" & email & "Vbcrlf" & commenti
'costruiamo un NewMail oggetto

'Crea gli oggetti per il messaggio e per la configurazione
Set objMessage = CreateObject("CDO.Message")
Set objConfig = server.CreateObject("CDO.Configuration")

'Configurazione server smtp
objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort
objConfig.Fields(cdoSMTPServer) = "server-web.municipioapricena.it"
objConfig.Fields(cdoSMTPServerPort) = 25

'Aggiornamento configurazione
objConfig.Fields.Update
Set objMessage.Configuration = objConfig

'crea il messaggio
objMessage.To = "ced@comune.apricena.fg.it"
objMessage.Cc = "amedeo.font@tiscali.it "
objMessage.From = email
objMessage.Subject = "Invio Email CDOsys"
objMessage.TextBody = mandamiquesto

' gestione errori
On Error Resume Next

' Send the CDOSYS Message
objMessage.Send
Set objMessage = Nothing
Set objConfig = Nothing

'visualizza un messaggio di ok in caso di invio senza problemi
'altrimenti visualizza il messaggio di errore
If Err.Number = 0 Then
Response.Write "Il messaggio è stato inviato; nessun errore!<hr>"
Else
Response.Write Err.Description & "<hr>"
Err.Number = 0
End If
On Error Goto 0
end sub

Sub ecco_fatto(nome)
'--------------------------------------------------------
'Purpose: manda un ringraziamento
'Date: 10 March 2001
'Commenti:
'--------------------------------------------------------
response.write "<div align='center'>"
response.write "<table border='0' width='80%' cellspadding='4' cellspacing='4'>"
response.write "<tr><td>Grazie " & nome & " per il...</td></tr>"
response.write "<tr><td align='middlè>"
response.write "Continua"
response.write "</td></tr></table></div>"
End sub
%>
</body>
</html>

Il browser segnala che la posta è stata inviata senza nessun errore ma il destinatario nn riceve le e-mail. rimangono nella cartella queue del server

**scorpio84** · 29-06-2006, 21:16

hai provato a togliere On Error Resume next e vedere se ti da un qualke errore?

**ginebell** · 29-06-2006, 21:44

Il browser mi segnala che non c'è nessun errore e il messaggio inviato correttamente ma invece rimane in quella maledetta cartella

**scorpio84** · 29-06-2006, 21:47

allora è un problema del server, o meglio delle impostazionis x il server di mail

Discussione: di nuovo sulle mail di conferma

Strumenti discussione

Ricerca discussione

Visualizza

di nuovo sulle mail di conferma

Permessi di invio