CDOSYS... ...strani comportamenti

**teorema55** · 18-07-2004, 18:03

Io penso che ci sia qualche altro problema che causa il mancato invìo con CDOSYS se l'indirizzo del mittente è fasullo: con lo script standard per CDOSYS i messaggi arrivano anche se come mittente ci scrivi

codice:

prosciutto e melone

tanto è vero che nel mio sito che vedi in firma (pagina "contatti") io ho messo un controllo javascript (per quello che può valere un controllo client-side sopratutto dal punto di vista della security)
almeno per dare una mano all'utente distratto che sbaglia ad inserire l'indirizzo.............

**Swalke** · 19-07-2004, 02:13

Ragazzi, oggi ho provato a inviare 5 mail di fila, 2 con indirizzi esistenti e tre inesistenti.
I 2 esistenti sono arrivati subito, gli altri non sono arrivati.

Il motivo a questo punto non può che essere il seguente:
Il server che ospita il mio sito prima di inviare le mail controlla se l'indirizzo esiste!
Non possono esserci altre spiegazioni!

Ma secondo voi è possibile che un server possa fare un controllo di questo tipo prima di spedire una mail?
E se si come? Dovrebbe battere a tappeto tutti i registri di indirizzi e-mail? Sarebbe un lavoro allucinante no?

X zioluter:
...mi potresti spiegare brevemente a cosa servono queste righe nel codice che hai postato?

codice:

if (Err.number<>0 ) then
response.Write("Errore nell'applicazione")
response.Write(Err.description )
response.End()
end if

Inoltre nel mio codice non compaiono i settaggi che tu fai nelle prime cinque righe!
...servono solo con ARUBA?

**teorema55** · 19-07-2004, 07:47

Perchè non posti il codice........sarebbe più facile darti una mano

**centoiso** · 19-07-2004, 09:45

Originariamente inviato da teorema55

tanto è vero che nel mio sito che vedi in firma (pagina "contatti") io ho messo un controllo javascript (per quello che può valere un controllo client-side sopratutto dal punto di vista della security)
almeno per dare una mano all'utente distratto che sbaglia ad inserire l'indirizzo.............

ciao, ho sbirciato nel codice della tua pagina contatti, da quanto ho capito il controllo prevede l'errore se il campo e-mail viene compilato con una stringa minore di 7 caratteri (@tin.it)... fossi in te lo imposterei almeno a 8, in ogni caso ti consiglio uno script che riconosca la presenza di una chiocciola, di un punto etc.

**teorema55** · 19-07-2004, 10:00

E' esattamente quello che c'è: campo non vuoto, stringa non inferiore a 7 chars, stringa contenente almeno una chiocciola, stringa contenente almeno un punto.............oltre al campo nome che non deve essere vuoto: direi che per un controllo che ha il solo scopo di rendere il form più "user-friendly" ce n'è da vendere.........

**Swalke** · 19-07-2004, 12:27

...visto che me lo chiedete vi posto il mio codice, ma non credo vi sarà di aiuto perchè comprende solo le semplici istruzioni di base per l'invio di una mail!!!

Eccolo qui:

codice:

Dim MailPrima
	Set MailPrima = CreateObject("CDO.Message")
    '**********	
	MailPrima.From=Request.form ("E_MAIL")
	x=Request.form ("E_MAIL")
	Response.write x
	MailPrima.To = "mioindirizzo@inwind.it"
	'MailPrima.CC= ""						 'set secondary reciver
	'MailPrima.BCC=""						 'set hidden secondary reciver
	MailPrima.Subject=Request.form ("GENERE_DI_MESSAGGIO")
	
	MailBody=Request.form ("TESTO_DEL_MESSAGGIO")
	MailBody=Replace(MailBody, "'", "’")
	MailBody=Replace(MailBody, "<", "&#060;")
	MailBody=Replace(MailBody, ">", "&#062;")
	MailBody=Replace(MailBody, VBCrlf, "
")
	
	MailPrima.Fields("urn:schemas:httpmail:importance").Value = 2
	MailPrima.Fields.Update()
		
	'**********
	NameSender=Request.form ("NOME_DEL_MITTENTE")
	SurnameSender=Request.form ("COGNOME_DEL_MITTENTE")
	FactorySender=Request.form ("NOME_AZIENDA_DEL_MITTENTE")
	AddressSender=Request.form ("INDIRIZZO")
	CitySender=Request.form ("CITTA")
	ProvinceSender=Request.form ("PROVINCIA")
	NationSender=Request.form ("NAZIONE")
	TelSender=Request.form ("TELEFONO")
	
	
	'**********
	MailPrima.HTMLBody="<HTML><HEAD></HEAD><BODY>Dati del mittente:
 "& NameSender &" "&SurnameSender&"
"& FactorySender &"
"& AddressSender &"
"& TelSender &"


Messaggio:
"& MailBody &"</BODY></HTML>"
	
	MailPrima.Send()					
    Set MailPrima = Nothing

Vi sarei grati se mi spiegaste a cosa servono le istruzioni finali del codice di "zioluter" che vi avevo chiesto qualche post + sopra!

Grazie mille!!!

**teorema55** · 19-07-2004, 21:03

Le istruzioni finali nel codice di zioluter, commentate:

codice:

if (Err.number<>0 ) then      'se nell'esecuzione della procedura ci sono errori
response.Write("Errore nell'applicazione") 'scrivi questa frase
response.Write(Err.description ) 'descrivi per esteso l'errore 
response.End()
end if

La procedura invoca l'oggetto error di ASP per

- contare gli eventuali errori con la proprietà err.number
- darne una descrizione per esteso con la proprietà err.description

Per quanto riguarda il tuo codice, a prima vista non vedo un controllo di validità dell'indirizzo del mittente, fammi guardare bene..........

**teorema55** · 19-07-2004, 21:23

Perchè, con queste due righe

codice:

        x=Request.form ("E_MAIL")
	Response.write x

ti fai stampare l'email del mittente?

Comunque la cosa non dovrebbe interferire con l'invio, non vedo davvero come potrebbe distinguere un indirizzo email valido da uno che non lo è..........

**zioluter** · 19-07-2004, 22:08

mi sono dimenticato di questo:
all'inizio del codice ci va

codice:

On Error Resume next

Questo insieme alle righe che hai postato, per far si che in caso di errore non salti fuori la classica pagina con errore 500 o altro, ma un simpatico messaggino...
La configurazione delle prime 5 righe, penso che sia obbligatoria....a me senza non andavva nemmeno in locale...
ciauz

**teorema55** · 19-07-2004, 22:14

Eh eh eh .........

codice:

on error resume next

l'arma segreta dello sviluppatore ASP!

Discussione: CDOSYS... ...strani comportamenti

Strumenti discussione

Ricerca discussione

Visualizza

Permessi di invio