mandare a capo le righe di una mail

**quake_84** · 03-12-2004, 11:08

ciao a tutti.ho fatto un codice che invia una mail a più destinatari,senza che questi vedano gli indirizzi degli altri.
il problema è che avevo bisogno che il codice interpretasse i tag di html inseriti in precedenza nel db,in modo che nella mail si possano scegliere colore del testo,font e usare i tag per il grassetto e i break.
una volta riuscito,la mia mail si è sballata e mi interpreta si i tag di html,ma non mi tiene più conto degli spazi che le avevo dato in ASP.

il codice è questo:

codice:

<%
sql2 = "select top 1 * from newsletter order by id desc" 
rs.Open sql2, conn, 1, 3
data = rs("Data")
oggetto = rs("Oggetto")
testo = rs("Testo")
rs.close

sql = "select * from iscritti order by Nome"
rs.Open sql, conn, 1, 3

do while not rs.EOF
email = rs("Email")

sTo=  email
sFrom = "info@centropopolareeuropeo.com"
sSubject = "Messaggio dal sito CentroPopolareEuropeo.com"
	sMessage = vbcrlf _
        & "Web Form from CentroPopolareEuropeo.com" & vbcrlf _
	& vbcrlf _
	& Message  & vbcrlf _
        & vbcrlf _
	& "Data :" & data & vbcrlf _
	& vbcrlf _
	& " Oggetto : " & oggetto & vbcrlf _
	& vbcrlf _
	& " Testo : " & testo & vbcrlf _
	'& vbcrlf _ 
	Set objNewMail = CreateObject("CDONTS.NewMail")
	objNewMail.BodyFormat = 0 
	objNewMail.MailFormat = 0
	objNewMail.Importance = 1
	objNewMail.Send sFrom, sTo, sSubject, sMessage
	Set objNewMail = Nothing
	
rs.movenext
loop

Response.Redirect ("contatto.asp")
%>

e la mia mail,purtroppo,mi arriva così:

codice:

Web Form from CentroPopolareEuropeo.com Data :12/3/04 Oggetto : Ancora una prova... Testo : Prova
Ho quasi finito tutti i tentativi che avevo in testa...

invece io vorrei che Data, Oggetto e Testo andassero a capo,come succedeva prima di inserire il parametro per inviare la mail in html.
come posso fare per mandarli a capo?

**deivnet** · 03-12-2004, 11:10

Se vuoi mandare la mail in HTML gli a capo non si fanno con vbcrlf ma con i
in HTML appunto... vbcrlf è solo per i file testuali.

**quake_84** · 03-12-2004, 11:17

eh,ci ho provato ma non è che mi sia servito a molto,perchè inserendo i br devo anche inserire i tag <html> e </html> (sennò il
viene preso comunque?) e poi non vedevo più niente nella mia mail.
comunque tu dici di fare così:

codice:

<html>
do while not rs.EOF
email = rs("Email")

sTo=  email
sFrom = "info@centropopolareeuropeo.com"
sSubject = "Messaggio dal sito CentroPopolareEuropeo.com"
	sMessage = vbcrlf _
        & "Web Form from CentroPopolareEuropeo.com" & vbcrlf _
	& vbcrlf _
	& Message  & vbcrlf _
        & vbcrlf _
	& "Data :" & data & vbcrlf _
	& vbcrlf _
    %>
    

    <%
	& " Oggetto : " & oggetto & vbcrlf _
	& vbcrlf _
    %>
    

    <%
	& " Testo : " & testo & vbcrlf _
	'& vbcrlf _ 
	Set objNewMail = CreateObject("CDONTS.NewMail")
	objNewMail.BodyFormat = 0 
	objNewMail.MailFormat = 0
	objNewMail.Importance = 1
	objNewMail.Send sFrom, sTo, sSubject, sMessage
	Set objNewMail = Nothing
	
rs.movenext
loop
%>
</html>

facendo così mi da questo errore:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/admin/send-newsletter.asp, line 24

come posso quindi fare?

**quake_84** · 03-12-2004, 11:20

si,giusto,non ho tolto i cosi per andare a capo nei file testuali.adesso si.
il codice mi risulta così:

<html>
<%
sql2 = "select top 1 * from newsletter order by id desc"
rs.Open sql2, conn, 1, 3
data = rs("Data")
oggetto = rs("Oggetto")
testo = rs("Testo")
rs.close

sql = "select * from iscritti order by Nome"
rs.Open sql, conn, 1, 3

do while not rs.EOF
email = rs("Email")

sTo= email
sFrom = "info@centropopolareeuropeo.com"
sSubject = "Messaggio dal sito CentroPopolareEuropeo.com"
sMessage = vbcrlf _
& "Web Form from CentroPopolareEuropeo.com" & vbcrlf _

& Message
%>

<%
& "Data :" & data
%>

<%
& " Oggetto : " & oggetto
%>

<%
& " Testo : " & testo
Set objNewMail = CreateObject("CDONTS.NewMail")
objNewMail.BodyFormat = 0
objNewMail.MailFormat = 0
objNewMail.Importance = 1
objNewMail.Send sFrom, sTo, sSubject, sMessage
Set objNewMail = Nothing

rs.movenext
loop

Response.Redirect ("contatto.asp")
%></html>

con questo errore:

Microsoft VBScript compilation error '800a0400'

Expected statement

/admin/send-newsletter.asp, line 27

& "Data :" & data

**deivnet** · 03-12-2004, 11:27

No, come hai fatto tu è completamente sbagliato ... provo ad aiutarti :

codice:

<%
sql2 = "select top 1 * from newsletter order by id desc" 
rs.Open sql2, conn, 1, 3
data = rs("Data")
oggetto = rs("Oggetto")
testo = rs("Testo")
rs.close

sql = "select * from iscritti order by Nome"
rs.Open sql, conn, 1, 3

do while not rs.EOF
email = rs("Email")

sTo=  email
sFrom = "info@centropopolareeuropeo.com"
sSubject = "Messaggio dal sito CentroPopolareEuropeo.com"
	sMessage = "<html><body>
" &_
        "Web Form from CentroPopolareEuropeo.com
" &_
	"
"&_
	Message  &"
" &_
        "
" &_
	"Data :" & data & "
" &_
	"
" &_
	" Oggetto : " & oggetto & "
" &_
	"
" &_
	" Testo : " & testo & "
" &_
	"
</body></html>" 
 
	Set objNewMail = CreateObject("CDONTS.NewMail")
	objNewMail.BodyFormat = 0 
	objNewMail.MailFormat = 0
	objNewMail.Importance = 1
	objNewMail.Send sFrom, sTo, sSubject, sMessage
	Set objNewMail = Nothing
	
rs.movenext
loop

Response.Redirect ("contatto.asp")
%>

Così salvo errori di battitura, dovrebbe funzionare tutto ho sostituito i tuoi vbcrlf con i
il discorso del tag html lo metti solo nella variabile sMessage

**quake_84** · 03-12-2004, 11:53

grazie mille,funziona perfettamente...

Discussione: mandare a capo le righe di una mail

Strumenti discussione

Ricerca discussione

Visualizza

mandare a capo le righe di una mail

Permessi di invio