cdosys mi invia due email !!!!!!

**Mr.Fabio** · 26-08-2005, 11:09

codice:

<%
Set miaMail = CreateObject("CDO.Message")
miaMail.From = from
miaMail.To = to
miaMail.Subject = oggetto
miaMail.HtmlBody = messaggio
miaMail.Send
Set miaMail = Nothing
%>

Sapete dirmi perche mi manda due copie della mail ??????

**Mems** · 26-08-2005, 11:23

E' una promozione estiva. 2 mail al prezzo di una.
Sei sicuro che quel codice non è contenuto dentro qualche ciclo for, do, while... ?

**Mr.Fabio** · 26-08-2005, 11:45

Originariamente inviato da Mems
E' una promozione estiva. 2 mail al prezzo di una.
Sei sicuro che quel codice non è contenuto dentro qualche ciclo for, do, while... ?

Cerco di essere più chiaro:

QUELLO E' TUTTO IL CODICE CHE CONTIENE LA MIA PAGINA ASP....... NE UN CARATTERE IN + NE UN CARATTETE IN -
risultato: mi arrivano due email anzicche una

**Mems** · 26-08-2005, 11:47

fai un response.write to
ovvero fatti scrivere cosa contiene la variabile to

**Mr.Fabio** · 26-08-2005, 11:53

Originariamente inviato da Mems
fai un response.write to
ovvero fatti scrivere cosa contiene la variabile to

ho modificato il tutto in questa maniera :

codice:

Set miaMail = CreateObject("CDO.Message")
miaMail.From = "info@miosito.it"
miaMail.To = "info@miosito.it"
miaMail.Subject = "oggetto"
miaMail.HtmlBody = "prova invio"
miaMail.Send
Set miaMail = Nothing

il risultato è lo stesso.......
Per caso ARUBA fa veramente promozioni sulle email ?

**jet** · 26-08-2005, 22:58

Ne invia solo una...

**Mr.Fabio** · 26-08-2005, 23:44

Originariamente inviato da jet
Ne invia solo una...

lo so che non mi credi ma giuro che ne arrivano due

Puo' dipendere dal fatto che io uso due volte l'oggetto?

Dò la possibilita ad un utente di spedire alcune email usando il mio indirizzo di posta, ma contemporaneamente una copia della mail (la fiducia non è mai troppa

) viene spedita anche a me e alcuni dati dati vengono salvati in un database.

ecco il codice:

codice:

destinatario = Replace(Request.Form("destinatario"), "'", "''")
oggetto = Replace(Request.Form("oggettomail"), "'", "''")
mittente = Replace(Request.Form("mittente"), "'", "''")
messaggio = Replace(Request.Form("mex"), "'", "''")

'creo l'oggetto per inviare la mail
Set miaMail = CreateObject("CDO.Message")
miaMail.From = "info@miosito.it"
miaMail.To = destinatario
miaMail.Subject = oggetto
miaMail.HtmlBody = messaggio
miaMail.Send
Set miaMail = Nothing

'creo l'oggetto per inviare una copia della mail alla mia casella
Set miaMail = CreateObject("CDO.Message")
miaMail.From = "info@miosito.it"
miaMail.To = "info@miosito.it"
miaMail.Subject = oggetto
miaMail.HtmlBody = "mail inviata a:" &destinatario& "
messaggio:" &messaggio
miaMail.Send
Set miaMail = Nothing

dim cn, sql 
	
set cn = Server.CreateObject("ADODB.Connection") 
cn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;"&_ 
"Persist Security Info=False;"&_ 
"Data Source="& Server.MapPath("/mdb-database/invio.mdb") 
cn.open() 

sql = "INSERT INTO controlloinvio(destinatario, oggetto, data) VALUES ('" &destinatario& "','" &oggetto& "','"& datainserimento& "')"
cn.execute(sql) 
cn.close() 
set cn = nothing

	response.write("<html>")
	response.write("<head>")
	response.write("<title>Invio ok</title>")
	response.write("</head>")
	response.write("<body bgcolor='#E5E5E5' >")
	response.write("


<center><font = verdana size = 4>La e-mail è stata inviata correttametne a:

" & destinatario & "</font>

")
	response.write("</body>")
	response.write("</html>")

(ho provato a fare una pagina con solo il codice che ho mostrato sopra e giuro che invia due volte la mail)
RISULTATO: vengono spedite due email sia al destinatario che a me

Se c'e una maniera per inviare anche a me una copia senza usare due volte l'oggetto fatemelo sapere perfavore
GRAZIE

**Mems** · 27-08-2005, 07:24

Ad ogni modo, la replace del carattere apice dovresti farla dopo l'invio della mail. Non ha senso scrivere sul corpo della mail due apici. Questa funzione serve solo per l'insert sul database, per evitare che il driver sql s'incazzi.

**Mr.Fabio** · 27-08-2005, 09:50

Ok hai ragione sul replace, ma cmq resta il fatto che mi invia due email e mi inserisce due volte i dati nel database!!!!!
Sto diventando matto!!!!!

**jet** · 27-08-2005, 11:19

miaMail.Bbc = "info@miosito.it"

Discussione: cdosys mi invia due email !!!!!!

Strumenti discussione

Ricerca discussione

Visualizza

cdosys mi invia due email !!!!!!

Permessi di invio