Invio mail con ciclo while

**areli** · 20-10-2004, 15:46

Buongiorno a tutti,
ho un form di invio mail. Nel corpo del messaggio devo inserire un ciclo Do ... Loop per i dati che mi seleziono da una query ad inizio pagina. Il problema è che sia in formato html che in formato testo, il body della mail non accetta un ciclo Do al suo interno. Se lo faccio esterno, non mi cicla le variabili.

codice:

"<html><head>" &_
       "<title>Richiesta ordine</title>" &_
       "<head>" &_
       "<body>" &_
       "Email: "&Request.Form("email")& "
" &_
       "Prodotti: " &_ 
	    DO While NOT rs_ordine.EOF Response.write rs_ordine("Codice_prodotto") rs_ordine.MoveNext() Loop& "
" &_
	   "Quantità: "& rs_ordine("Quantita")& "
" &_
       "</body>" &_
       "</html>"

Grazie in anticipo per qualsiasi aiuto

**manubox98** · 20-10-2004, 16:35

Naturalmente immagino che ogni persona che deve ricevere la mail non deve vedere gli indirizzi degli altri, giusto?

altrimenti aggiungevi i campi delle mail separati dalla virgola e tutto era risolto...

Io ho risolto così il problema:

codice:

da = "manubox98<manubox98@hotmail.com>"
titolo = request("soggetto")
mex = request("msg")
while not rs.eof
	Set MAIL = CreateObject("CDONTS.NewMail")
	MAIL.From = da
	MAIL.Subject = titolo
	MyBody = "<html><body><font face=Verdana size=2> Egr. "
	MyBody = MyBody + rs("nome") & " " & rs("cognome") & ",
" & mex
	MyBody = MyBody + "</font></body></html>"

	MAIL.Body = MyBody
	MAIL.To = rs("email")
	MAIL.BodyFormat = 0
	MAIL.MailFormat = 0
'	response.write rs("nome") & " " & rs("email") & "
"
	MAIL.Send
	set MAIL = nothing
	rs.movenext
wend

Naturalmente il mio recordset RS contiene i nomi dei destinatari. Così facendo il programma crea e manda tante mail quanti sono gli indirizzi.
Naturalmente la mail è in formato HTML, ma puoi personalizzarla come vuoi..

Spero sia stato di aiuto...

Lele

**areli** · 20-10-2004, 16:55

Altrochè!! Grazie Mille!
Il tuo script mi è servito alla grande, graie ancora. Avevo bisogno di ciclare i prodotti ordinati e inviare la mail all'amministratore, quindi con una piccola modifica ecco il codice che funziona:

codice:

Set Mail = Server.CreateObject("CDONTS.NewMail")

da = "admin@admin.it"
titolo = "Richiesta ordine"
mex = ciao

	Set MAIL = CreateObject("CDONTS.NewMail")
	MAIL.From = da
	MAIL.Subject = titolo
	
	MyBody = "<html><body><font face=Verdana size=2> Egr. "
	while not rs_ordine.eof
	MyBody = MyBody + rs_ordine("Codice_prodotto") & " " & rs_ordine("Quantita") & ",
" & mex
	rs_ordine.movenext
wend
	MyBody = MyBody + "</font></body></html>"

	MAIL.Body = MyBody
	MAIL.To = "pippo@libero.it"
	MAIL.BodyFormat = 0
	MAIL.MailFormat = 0
'	response.write rs("nome") & " " & rs("email") & "
"
	MAIL.Send
	set MAIL = nothing

**manubox98** · 21-10-2004, 09:08

felice di esserti stato di aiuto

Ciao
Lele

**Lan** · 21-10-2004, 12:28

Scusate...
visto che la cosa mi interessa molto ho provato lo script...
cosi...

Set Mail = Server.CreateObject("CDONTS.NewMail")

da = "pc-ware<valentino.erre@pcwitalia.it>"
titolo = request("soggetto")
mex = request("msg")

Set MAIL = CreateObject("CDONTS.NewMail")
MAIL.From = da
MAIL.Subject = titolo
MyBody = "<html><body><font face=Verdana size=2> Egr. "
MyBody = MyBody + request("userid") & " " & request("psw") & ",
" & mex
MyBody = MyBody + "</font></body></html>"

MAIL.Body = MyBody
MAIL.To = "rag.r@iol.it"
MAIL.BodyFormat = 0
MAIL.MailFormat = 0
' response.write request("userid") & " " & request("nsconto") & "
"
MAIL.Send
set MAIL = nothing

però la pagina mi si visualizza ma non mi da niente...
la collego tramite un bottone in un altra pagina:

<form method="post" action="mail.asp">
<input type="hidden" name="userID" value="<%=request( "userID" ) %>" />
<input type="hidden" name="psw" value="<%=request( "psw" ) %>" />
<input type="hidden" name="nsconto" value="<%=request( "nsconto" ) %>" />
<input type="submit" value="Mail">
</form>

il problema è che non fa niente...
vorrei sapere se sbaglio qualcosa o mi manca qualcosa...

**Lan** · 21-10-2004, 12:32

ma il metodo CDONTS sfrutta l'smtp della macchina o no???
Perchè in questo caso il problema è che il mio smtp per policy nel server web è disabilitato e allora son az....

**manubox98** · 22-10-2004, 08:55

esatto!
L'oggetto CDONTS utilizza il servizio SMTP del computer su cui risiede l'applicazione.

So che esistono altri metodi, esistono anche delle DLL (alcune grauite e alcune a pagamento) che permettono di creare altri oggetti per le mail, ma queste non le ho mai usate e non saprei consigliarti...

Spiacente...

Lele

Discussione: Invio mail con ciclo while

Strumenti discussione

Ricerca discussione

Visualizza

Invio mail con ciclo while

Permessi di invio